¿Cómo programar un Commandbutton para copiar datos de una hoja a otra?

nuevamente consulto...

Tengo esta hoja donde cargo datos diariamente y con el botón "Cargar Datos" los registro en otra hoja, donde se van acumulando...

Hoja "Cargar_recorte":

y donde graba los datos se llama "Datos_Historicos". Se ve así:

Con lo poco que sé, solo se me ocurrió escribir esto:

Private Sub CommandButton1_Click()

Worksheets("Datos_Historicos").Activate

For i = 0 To 1000

Dim Rango As Range
Set Rango = Worksheets("Datos_Historicos").Range("A4")
Rango.Activate

ActiveCell.Offset(i, 0).Activate
If ActiveCell.Value = "" Then
ValorLeido = Worksheets("Cargar_recorte").Range("A5").Value
ActiveCell.Value = ValorLeido
ActiveCell.Offset(0, 1).Activate
.......... "Son varias celdas que copia....."

ValorLeido = Worksheets("Cargar_recorte").Range("AK6").Value
ActiveCell.Value = ValorLeido
Worksheets("Cargar_recorte").Activate

Exit For
End If
Next

  End Sub

El tema es que a principio de año va bien, genial, porque hay pocos registros, pero ya a mitad de año se me hace engorroso y no me gusta visualmente ya que cuando le das click al botón, y hay muchos datos en la hoja "Datos_Historicos", se ve todo el recorrido que hace buscando la ActiveCell vacia!

Me podrían ayudar, ¿buscando otra manera de grabar los datos sin que se visualice eso?

Gracias nuevamente gente! =)