Autorrellenar con macro

Hola a todos, necesito una macro que me vaya a la ultima fila con datos de
la columna B y alli me seleccione la fila hasta la columna HG y una vez
seleccionada me arrastre para autorrellenar la fila siguiente. Con esto:


Sheets("hoja1").Select

Windows("libro1.xls").Activate
Range("B" & Rows.Count).End(xlUp).Offset(0, 0).Select


llego a la ultima celda de la columna B, pero no se como selecionar la fila
y arrastrar con una macro,

Gracias por anticipado por la ayuda.

Saludos. Martin.

Hola Martin,

Si quieres copiar los datos de A a HG, entonces prueba esto:

Sub test()
With Sheets("Hoja1")
Set rng = .Cells(.Rows.Count, "B"). _
End(xlUp).Offset(, -1).Resize(, 215)
End With
rng.AutoFill rng.Resize(2)
End Sub

y si tiene que ser de B a HG, entonces:

Sub test()
With Sheets("Hoja1")
Set rng = .Cells(.Rows.Count, "B"). _
End(xlUp).Resize(, 214)
End With
rng.AutoFill rng.Resize(2)
End Sub

Saludos,
KL


"Martin" wrote in message
news:43d0c54c$0$15781$

Hola a todos, necesito una macro que me vaya a la ultima fila con
datos de la columna B y alli me seleccione la fila hasta la columna
HG y una vez seleccionada me arrastre para autorrellenar la fila
siguiente. Con esto:


Sheets("hoja1").Select

Windows("libro1.xls").Activate
Range("B" & Rows.Count).End(xlUp).Offset(0, 0).Select


llego a la ultima celda de la columna B, pero no se como selecionar
la fila y arrastrar con una macro,

Gracias por anticipado por la ayuda.

Saludos. Martin.