Este vídeo ensina a fazer:

https://www.youtube.com/watch?v=Clryu7J2w9A

Private Sub CommandButton1_Click()



Dim linhaEntrada As Long

Dim linhaHistorico As Long



inicio:



linhaEntrada = 3



While Planilha1.Range("B" & linhaEntrada).Value <> ""

    linhaHistorico = 3

        While Planilha2.Range("B" & linhaHistorico).Value <> ""

            linhaHistorico = linhaHistorico + 1

            Wend

                Planilha2.Range("B" & linhaHistorico).Value = Planilha1.Range("B" & linhaEntrada).Value

                Planilha2.Range("C" & linhaHistorico).Value = Planilha1.Range("C" & linhaEntrada).Value

                Planilha2.Range("D" & linhaHistorico).Value = Planilha1.Range("D" & linhaEntrada).Value

                Planilha2.Range("E" & linhaHistorico).Value = Planilha1.Range("E" & linhaEntrada).Value

                Planilha2.Range("F" & linhaHistorico).Value = Planilha1.Range("F" & linhaEntrada).Value

                Planilha2.Range("G" & linhaHistorico).Value = Planilha1.Range("G" & linhaEntrada).Value

                Planilha2.Range("H" & linhaHistorico).Value = Planilha1.Range("H" & linhaEntrada).Value

                Planilha2.Range("I" & linhaHistorico).Value = Planilha1.Range("I" & linhaEntrada).Value

                Planilha2.Range("J" & linhaHistorico).Value = Planilha1.Range("J" & linhaEntrada).Value

                Planilha2.Range("K" & linhaHistorico).Value = Planilha1.Range("K" & linhaEntrada).Value

                Planilha1.Range("B" & linhaEntrada).EntireRow.Delete

                GoTo inicio

                linhaEntrada = linhaEntrada + 1

                Wend



End Sub

Cole uma cópia do código abaixo no módulo da planilha Entrada. Para acessar o módulo clique com o direito sobre a guia daquela planilha e escolha Exibir Código.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 3 Or Application.CountA([B3], [G3:K3]) < 6 Then Exit Sub
[B3:K3].Copy
Sheets("Historico").Cells(Rows.Count, 2).End(3)(2).PasteSpecial xlValues
Range("B3, G3:K3") = ""
End Sub

funcionamento - após preencher na planilha Entrada as células B3 e G3:K3, em qualquer ordem, o código acima irá replicar os dados da linha 3 na primeira linha vazia da planilha Historico e limpará B3 e G3:K3.