CB.PasteData Example 2

This example copies the assumption data from cells B5, B6, and B7, and then pastes it into the corresponding cells D1, D2, and D3 (provided those cells contain values and not formulas).

'In the following command, B5, B6, and B7 are all assumptions
Range("B5:B7").Select

CB.CopyData 
Range("D1:D3").Select
CB.PasteData