Does this do it for you?

Sub copystrange()
For i = 1 To 10
Sheets("sheet1").Cells(i + 1, 2).Copy _
Sheets("sheet2").Cells(4, i + 2)
Next
End Sub
--
Don Guillett
SalesAid Software

"Nad" wrote in message
...
Hi,
Please help to write the Macro.
In Sheet1, i have to copy the range B2..B10
In Sheet2, i want to paste this copied this range like
C4 (Data from Sheet1/B2)
D4 (Blank)
E4 (Data from sheet1/B3)
Now,
C5 (data from Sheet1/B4)
D5 (Blank)
......
Best Regards,