Copiar y pegar rango

[Torpedo63]

Quiero copiar un rango de una hoja y pegarlo en otra, todo va bien hasta la instruccion paste, que da "error en el método paste de la clase Woksheet". Alguien me puede ayudar?

Gracias.

Sub CargaCCH2()

Dim dia1 As Date

Dim dia2 As Date

dia1 = #1/2/2013#

dia2 = #1/3/2013#

Worksheets("CHT").Select

uf = Range("a1000000").End(xlUp).Row

Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia1)

fi = busco.Row

Set busco = ActiveSheet.Range("a1", "a" & uf).Find(dia2)

ff = busco.Row

ff = ff + 23

Range("a" & fi, "d" & ff).Copy

Worksheets("CH").Activate

uf2 = Range("a1000000").End(xlUp).Row

Range("a1", "d" & uf2).ClearContents

Cells(1, 1).Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

[aaquino]

Prueba cambiando esa parte por esta otra

Selection.PasteSpecial Paste:=xlPasteAll

Si te ha sido de utilidad, un Like

Si se ha resuelto tu duda, indícalo

Saludos.

[Torpedo63]

Me da "error en el metodo pastespecial de la clase range"

[aaquino]

Prueba cambiando esto:

cells(1,1).select

ActiveSheet.Paste

por esto:

Range("A1").select

Selection.PasteSpecial Paste:=xlPasteAll

Si te ha sido de utilidad, un Like

Si se ha resuelto tu duda, indícalo

Saludos.

[Torpedo63]

me da "error en el método PasteSpecial de la clase Range"

[Torpedo63]

He probado comentando las líneas

'uf2 = Range("a1000000").End(xlUp).Row

'Range("a1", "d" & uf2).ClearContents

Cómo puedo borrar tres columnas enteras de otra manera?

Gracias