Rrellenar celdas automaticamente

[celim]

Hola amigos.

por favor si pueden darme una ayuda.

es q con la macro que va en el libro adjunto, puedo iserrtar dos columnas cada 8 especies , en cuyas columnas insertadas quiero que se copie los valores de las primeras dos columna y no sé como hacerlo.

Los resultados que se busca figura en la hoja "Modelo".

Gracias por anticipado.

Copia celdasautomaticamente.zip

[Armando Montes]

Hola, intenta con esto:

Sub Macro1()

    [A4:AP4].SpecialCells(xlCellTypeBlanks).Select

    [A4:B13].Copy Selection

End Sub[/CODE]

[Antoni]

.

Si lo he entendido:

Esto es lo que has pedido:

Sub InsertarTítulos()

Dim x As Long

x = 11

Do Until Trim(Cells(4, x + 1)) = Empty

  If Not Cells(4, x) = Range("A4") Then

      Range("A4:B13").Copy

      Cells(4, x).Insert Shift:=xlToRight

  End If

  x = x + 10

Loop

End Sub[/CODE]

Esto te podría valer:

[CODE]Sub FijarRango()
Range("C3").Select
ActiveWindow.FreezePanes = True
End Sub[/CODE]

.

PD: Saludos Armando

.

[celim]

Gracias a ambos por su esfuerzo.

sin embargo yo pretendía que los rangos deben de ser variables.

y la solución adecuada para este caso es la que proporciona nuestro amigo Macro Antonio( Armando).

Mil Gracias