RE:Copiar datos entre hojas
Esta macro copia registro en una y las traslada a la siguiente hoja en la celda activa... espero te sirva, esta te va guardando los registros fila por fila´.
Sub Control_Historicos()
'Aqui se declaran las variables a usarse
Dim Empresaemisora As String, FechaSolicitud As Date
'Le damos valores a las variables
Empresaemisora = Range("c67").Value
FechaSolicitud = Range("c75").Value
' aqui comienza la rutina de los históricos
Sheets("Hoja2").Select
Range("B4").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = Contador
ActiveCell.Offset(0, 1).Value = Zafra
ActiveCell.Offset(0, 2).Value = Empresaemisora
ActiveCell.Offset(0, 3).Value = FechaSolicitud
End Sub
Ahora si solo necesitas copiar y pegar utiilza la siguiente macro
Sub CopiayPega()
Range("B3").Select
Selection.Copy
Sheets("Hoja2").Select
Range("B3").Select
ActiveSheet.Paste
End Sub
Salu2