Hi Aussiegirlone
Try this:

Set SourceRange=Range("A" & LastRow(ActiveSheet) & ":D" & LastRow
(ActiveSheet))

Regards,
Per



On 12 Jul., 03:25, Aussiegirlone <Aussiegirlone.
wrote:
I have managed to change this line: Set SourceRange =
Sheets("Sheet1").Range("A4:D12") to this line below
Set SourceRange = Range("A:D" &
LastRow(ActiveSheet)) but I only want the
last line copied please! Thank you

--
Aussiegirlone
------------------------------------------------------------------------
Aussiegirlone's Profile:http://www.thecodecage.com/forumz/member.php?userid=272
View this thread:http://www.thecodecage.com/forumz/sh...d.php?t=115071