vai gravando até quando e com que frequencia?

Sub teste()
Range("A1").Select
    Selection.Copy
    Sheets("Planilha1").Select
    Range("c1").Select
    
    Do
        If ActiveCell <> "" Then
        ActiveCell.Offset(1, 0).Select
        End If
    Loop Until ActiveCell = ""
    ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
End Sub

segue meu código, quero usar para saída de veículos entao hora que o veículo sair eu registro nas celulas, tem como registrar em outras colunas pois o atalho que eu coloquei na macro registra apenas na c3 queria algo que hora que selecionar a célula e aplicar o atalho no teclado registrasse em outras colunas onde está selecionado. "estou fazendo ainda não tem importancia das células agora hora que montar tudo eu troco depois".