Copiar y pegar datos de varias hojas en una de resumen

Necesito copias datos de varias hojas en una de resumen, estoy tratando de aplicar estas instrucciones y me da error '1004' error definido por la aplicación o el objeto. Que puedo hacer, soy principiante.

Sub resumen()
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name <> "resumen" Then
hoja.Select
columna = Range("mm1").End(xlToLeft).Column
ultima = Range("a65000").End(xlUp).Row
Range(Cells(2, 1), Cells(ultima, columna)).Copy
Sheets("resumen").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
End If
Next
End Sub