Last Row Macro

[michaelp1029]

Here's the scenario. I need a macro so that it can go into cells B27:B47 and pull the most recent 14 rows of data. Some times all 21 cells have data in them or there might only be 14 rows of data. But I need to pull the most recent 14 rows of data and paste them into cells AT2:AT15. Help?

 

[jeffreybrown]

Try this with a copy of your data.

Sub Cpy14()
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Range("B" & LR - 13 & ":B" & LR).Copy Destination:=Sheets("Sheet1").Range("AT2")
End Sub