复制最后一行的选择

Question

I have a table, with headers in the range A2:V2 and the data in the range A3:VXX , where XX is the last row number.

I am trying to write a macro which duplicates the values of the last row, but only for columns A:P . So Duplicating the values in AXX:PXX . I have no issues finding and copying the entire last row, however I cannot copy a limited range within it.

Apologies earlier for not including the code I have used.

With Activesheet 
    .cells(.rows.count,1).end(xlup).entirerow.copy 
End With

Answer 1

Instead of the entire row set the range:

Dim lastRow as long

With Activesheet 
    lastRow = .cells(.rows.count,1).end(xlup).Row
    .Range(.Cells(lastrow,"A"),.Cells(lastrow,"P")).copy 
End With

Answer 2

you can use:

With ActiveSheet
    .Cells(.Rows.Count, 1).End(xlUp).EntireRow.Columns("A:P").Copy
End With

or, since ActiveSheet is the default sheet, simply:

Cells(Rows.Count, 1).End(xlUp).EntireRow.Columns("A:P").Copy