Copy and paste text in last four rows

[Winnietp]

This is probably very simple, but I'm a newbie at creating macros and just can't figure it out.

I'm using Excel 2003 and need to find the last four rows in my spreadsheet (which will change daily), duplicate the text in column A and paste it into column B and C.

Thanks!

 

[jbeaucaire]

1) Copy the last 4 values in column A
2) Paste into B and C where? In the same 4 rows?

Sub LastFour()
Dim LR As Long

    LR = Range("A" & Rows.Count).End(xlUp).Row - 3
    Range("A" & LR).Resize(4).Copy Range("B" & LR, "C" & LR)

End Sub

 

[Winnietp]

Hi Jerry,

Yes, it was for the same 4 rows. This was perfect. Thanks a bunch.

Shari