This example copies only the Crystal Ball assumption data from cells B5 and B6.
Range("B5:B6").Select 'contains an assumption and a forecast CB.CopyDataND cbCelAssum