Hi Burg,

The following copies A1:D6 on Sheet1 to a range on Sheet2 starting at the
next empty cell in column A.

Sub Demo()
Dim srcRng As Range, destRng As Range

Set srcRng = Sheets("Sheet1").Range("A1:D6")
Set destRng = Sheets("Sheet2"). _
Cells(Rows.Count, "A").End(xlUp)(2)

srcRng.Copy destRng
End Sub

---
Regards,
Norman



"burg" wrote in message
...
Hello,

How do I make a macro that copies data from one spreadsheet and then
pastes
it into another spreadsheet, BUT does not paste over the top of the
existing
data and pastes a row lower?

Thanks