Foro Excel

Hola amigos tengo este codigo y me sale error en el metodo PAsteSpecial de la clase Range

Sub macro()

Rem copiar datos de libro origen

Dim ultima, filepath$
Const archivo = "Book1.xls"
Const hoja = "Sheet1"
filepath = ActiveWorkbook.Path & "/"

rem copiar el rango de datos del libro book1.xls sin que se abra
Application.ScreenUpdating = False
Sheets(1).Select
Range("A1").Select
ultima = ""
ultima = Application.CountA(Range("A:A"))
Range("A2:F" & ultima).Select
Selection.Copy
ActiveWindow.DisplayZeros = False

rem se supone que este es el codigo para pegar en este libro el la hoja "Datos" la rem informaion que copie anteriormente

Application.Workbooks("Comisiones STC 2004 (2).xls").Activate
Sheets("Datos").Select
Range("A1").Select
ultima = ""
ultima = Application.CountA(Range("A:A"))
ultima = ultima + 1
Range("A" & ultima).PasteSpecial ' aqui me sale error

' Workbooks(archivo).Save
' Workbooks(archivo).Close
Application.Workbooks("Comisiones STC 2004 (2).xls").Activate

Sheets(1).Select
Range("A1").Select


End Sub

no te falta poner que va hacer que haga especial, copiar solo los formatos, los valores o, solo le di una miradita es una opinion...

Hola dannyjsm me parece que yimysys tiene razon y podrias cambiar esa linea por alguna de estas opciones dependiendo que es lo que necesitas.

Range("A" & ultima).PasteSpecial Paste:=xlPasteFormulas
Range("A" & ultima).PasteSpecial Paste:=xlPasteValues
Range("A" & ultima).PasteSpecial Paste:=xlPasteFormats

Saludos