Start from the top of the range(the first cell with
data). This will find the bottom, then select and copy
the range and put it directly below the original data.

Sub Macro1()
Top = ActiveCell.Address
Selection.End(xlDown).Select
Bottom = ActiveCell.Address
Range((Top) & ":" & (Bottom)).Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
-----Original Message-----
how to paste data range not overlapping the previous
data but moving it
down?


---
Message posted from http://www.ExcelForum.com/

.