Question

I have a spreadsheet I’m using to compile text that changes all the time.

In column AD, Row 4(AD4) I put the contents of text, and it can have data going 1000 to 4000 rows down. It changes every time, so there is no static range name. I need a macro that

• finds the final piece of data in that column,
• then automatically “drags a box” from that spot two columns to the left (AB4)
• and copies it… (A 3000 row piece of text would be AB4:AD3004) (Macro stops there, with text to be copied highlighted)

The current version finds the bottom cell correctly, but if I run the macro a 2nd time, with new data, it keeps trying to copy the same range. (I used the Formula Define.Name method, to name the cell, and then selected AB4:LastRow) but it is ALWAYS 3160 whether data goes to row 4000 or not…..

Sub Last_row()
Cells(Application.Rows.Count, 30).End(xlUp).Select
' following lines of code are useless
Range("AB4:AD3160").Select
Range("AD3160").Activate
Selection.Copy
End Sub

Answer 1

To answer your question directly:

With Sheet1
    .Range("AB4", .Cells(Rows.Count, "AD").End(xlUp)).Copy
End With

Copy to specific location WITHOUT using clipboard:

With Sheet1
    .Range("AB4", .Cells(Rows.Count, "AD").End(xlUp)).Copy Sheet2.[A1]
End With

Copy and exclude formatting:

With Sheet1
    With .Range("AB4", .Cells(Rows.Count, "AD").End(xlUp))
        Sheet2.Cells(1, "A").Resize(.Rows.Count, .Columns.Count).Value = .Value
    End With
End With

Note: Replace all sheet codenames (sheet1, Sheet2) above with your actual sheet codenames.