Hi
Change:
ActiveSheet.Rows(LastRow & ":" & LastRow).Select
To:
ActiveSheet.Range("A" & LastRow).Paste
See if that work
Tom