Problemas con Range

En el siguiente procedimiento. . .

Public Sub CopiarCeldas()

If Range("A1") = "a" Then
Worksheets("Hoja1").Range("A2:D9").Copy _
Destination:=Worksheets("Hoja2").Range("A1")

ElseIf Range("A1") = "b" Then
Worksheets("Hoja1").Range("A2:D9").Copy _
Destination:=Worksheets("Hoja3").Range("A1")

End If

End Sub


. . . que me permite copiar el contenido de un rango de la hoja 1, en
la Hoja 2 si A1 = a, y en la Hoja 3 si A1 = b; necesitaría ampliar el
rango "A2:D9" a la totalidad de la columna A. He utilizado para eso
Range("A:A") pero me arroja error.

Desde ya muchas gracias.

Joaquín
Buenos Aires. Argentina

Joancho
Buenos Aires. Argentina
jdcbairesSPAM@yahoo.com.arSPAM