Hi tbmarlie,

Sorry I didn't get back before, just got in:

This is all one line which should explain the syntax error:

ActiveSheet.Paste _
Destination:=Worksheets("Sheet1").Range(LastCell.O ffset(1, 1), _
LastCell.Offset(1, 6))

Having said that I saw the code Dave Peterson posted; much more elegant
than mine and shorter to boot!

I'd use that especially as he explained it well.

Good Luck.