Favor su ayuda para completar esta código en excel

Quien pueda ayudarme a completar es macro, necesito que recorra un libro con mas de 50 hojas copie la ultima fila y al momento de pegar esto en otra hoja se pegue pero con el nombre de la hoja respectiva

Sub Macro1()
Range("A5").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ChDir "C:\perfiluser\desktop"
Workbooks.Open Filename:="C:\perfiluser\desktop\RESUMEN.xls"
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("planilla.xls").Activate
End Sub