CB.PasteData Example 3

This example copies the Crystal Ball data from cell B5 and pastes it three times: into cells D1, D2, and D3.

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