End Down

test først:
1. The Find Function Method (Best Method)
This line of VBA code will search all the cells on your sheet and return the row of the last cell with any sort of value stored in it. Because the Find function is set to search from the very bottom of the spreadsheet and upwards, this code can accommodate blank rows in your data.

Dim LastCell As Range

Set LastCell = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
This method ignores empty cells with formatting still in them, which is ideal if you are truly wanting the find the last cell with data in it, not necessarily the last cell that had any modifications done to it.

Men der er flere i https://www.thespreadsheetguru.com/last-row-column-vba/

Nu har du ikke skrevet noget om kolonner, som definerer hvilken række som kopieres, og om det er hele linjen, eller del af linjen.
Men her er en lille makro, som kopierer, og indsætter som sidste linje.

Kolone "P" er fra den linje som definerer hvor der er data, og hvor der kopieres fra.
Range, er det område som medtages i den kopierede linje.
Shift område selv, så det passer til det du skal bruge.

Sub CopyData()
  Dim Lr As Long
  Lr = Range("P" & Rows.Count).End(xlUp).Row
  Range("A1:P" & Lr).Copy Range("A" & Lr + 1)
End Sub