Copy Paste Last Row VBA

[Lauren123]

Hi I have this macro where it selects a range tehn copy and paste it on another sheet, but I would like to do it on the last row, is that possible?

Sub CopiaDetalle()


Ultimafila = Worksheets("U-Detail").Range("C" & Rows.Count).End(xlUp).Row
UltimafilaD = Worksheets("Detail").Range("C" & Rows.Count).End(xlUp).Row


Set rng = Workbooks(Wk_Name).Worksheets("U-Detail").Range("C11:AC" & Ultimafila)
rng.Copy
Workbooks(Wk_Name).Worksheets("Detail").Range(UltimafilaD).PasteSpecial xlPasteValues


End Sub

 

[Haluk_]

Check the code below code, take care of the changes marked with red font and ammend it to suit your needs.

Sub CopiaDetalle()[B][COLOR=#ff0000]    Wk_Name = ThisWorkbook.Name[/COLOR][/B]
    Ultimafila = Worksheets("U-Detail").Range("C" & Rows.Count).End(xlUp).Row
    UltimafilaD = Worksheets("Detail").Range("C" & Rows.Count).End(xlUp).Row
    
    Set Rng = Workbooks(Wk_Name).Worksheets("U-Detail").Range("C11:AC" & Ultimafila)
    Rng.Copy
    Workbooks(Wk_Name).Worksheets("Detail").Range([B][COLOR=#ff0000]"C" &[/COLOR][/B] UltimafilaD).PasteSpecial xlPasteValues
End Sub

 

[Haluk_]

BTW;

[B][COLOR=#ff0000]Wk_Name = ThisWorkbook.Name[/COLOR][/B]

should be the second line. May be this fault is because of the browser i am using (Chrome)