Thanks for trying Norman but at End(xlUp)(2)) I get 'compile Error Expected
expression' and I dont know how to sort it out.


"Norman Jones" wrote:

Hi J,

Assuming that column A is to be used to determine the end of existing data,
try:

Sub Tester04()

With ActiveSheet
.Range("A600:D602").Copy
.Paste (.Cells(Rows.Count, "A").End(xlUp)(2))
End With
End Sub

---
Regards,
Norman



"J.Reynolds" wrote in message
...
I am trying to insert some cells that I have formatted into a spreadsheet
at
a point where entries finish. This could be anywhere on the sheet. So
far I
have managed:- Range("A600:D602").Select
Selection.Copy
Range("..????")Select
Active Sheet Paste.
How can I tell the macro to enter my cells at the cell which I selected
without stipulating an actual cell?