pedie
Well-known Member
- Joined
- Apr 28, 2010
- Messages
- 3,875
I dont know why my code does not leave a row before pasting....
please check where is it wrong.
Thanks ped
please check where is it wrong.
Thanks ped

Code:
sub try1()
Selection.Copy
Sheets("Data").Select
Range("b2").Select
Do Until ActiveCell.Value = ""
' i have place (1,0) to leave 1 row before pasting...
ActiveCell.Offset(1, 0).Select
Loop
activesheet.paste
end sub