Macro que Copie datos de una hoja"1" y los pegue en otra hoja"2"

Debo copiar los datos de la Hoja 2 de toda la columna "AR" empezando por la fila, 2 y pegarlos en la celda "C3" ( los siguientes pegados deben 11 casillas después del pegado inicial), para ello se me ha ocurrido la Estructura "FOR" y he diseñado el siguiente Código pero no se me ejecuta. Pueden orientarme en cual es la edición adecuada del código (adjunto imágenes de las hojas):

Sub Filas()

Dim Fila As Integer

 Dim i As Integer

Fila = 3

    'comienzo el bucle

    For i = 2 To 5

'activo la hoja donde están mis datos

Sheets("2"). Activate

'copio el rango

Range(Cells(i, "AR")). Copy

'selecciono la hoja donde quiero pegar y después la celda

Sheets("1"). Activate

                    Cells(Fila, "C").Select

'pego la fila que hemos copiado

ActiveSheet. Paste

                                Fila = 3 + 11

    Next

End Sub

Añade tu respuesta

Haz clic para o