Hola. La consulta es como pegar un rango de celdas B10:B46 de la hoja 1 a un rango que no tenga datos en la hoja 2 F10:F46 y si tiene datos este rango que encuentre hacia la derecha el rango libre. Muchas gracias

Hola fedabrio, Seria bueno que subieras tu archivo para que la solución que buscas sea mas efectiva.

A ver mira este

Copiar.rar

Hola fedabrio, Seria bueno que subieras tu archivo para que la solución que buscas sea mas efectiva.

Muchas gracias a todos al final este es el codigo que me funciona

'Al pulsar el boton Parciales pasaremos el contenido del rango "B10:B46" de la Hoja PasarBolas al rango que no tenga datos empezando en "F10:F46" de la Hoja Parciales

' incrustando la fecha actual en la celda que este libre empezando en "E4" y terminaremos seleccionando la Celda A1 de la hoja PasarBolas

'

Dim Puntero As Integer 'Declaramos la variable Puntero como una variable del tipo Entero

With Worksheets("Parciales") 'Referenciamos el Objeto Hoja de trabajo "Parciales" es decir pasamos el control a la hoja "Parciales"

Puntero = .Cells(10, 4).End(xlToRight).Offset(, 1).Column 'Puntero = a la celda "D10" si contiene algo apunta a la columna hacia la derecha siguiente que este libre al inicio

' apuntaria a la celda "F10" puesto que la celda E10 tiene datos

.Cells(10, Puntero).Resize(37).Value = Worksheets("PasarBolas").Range("B10:B46").Value 'Cambiamos el rango a seleccionar desde la celda (En este primer caso Puntero = F) "F10"

' hasta "F46" osea F10 + 37 = F46

.Cells(4, Puntero).Offset(, -1) = DateValue(Now) 'Insetamos la fecha actual en la celda seleccionada, la celda en este primer caso Puntero = F seria "E4" (es decir "F4" con un offset de -1 = "E4")

End With 'Terminamos el control sobre la hoja Parciales por lo tanto retornamos el control a la Hoja PasarBolas

Range("A1").Select 'Seleccionamos la celda A1