Como deslocar os dados de uma célula para outra célula no excel?

Question

Estou usando o MS Excel 2010 e quero que, ao digitar qualquer valor ou palavra na célula A1, ele seja transferido automaticamente para a célula D1 e a célula A1 fique em branco novamente. Da mesma forma, se eu digitar qualquer valor ou palavra na célula A2, ele deve ser automaticamente transferido para a célula D2 e a célula A2 deve ficar em branco novamente e assim por diante.

Por favor me sugira qualquer forma, fórmula ou código VBA para fazer isso. Alguém me sugeriu os seguintes códigos VBA para alterar os valores, mas esses códigos estão funcionando apenas para a célula A1. Ou seja, esses códigos só podem alterar o valor da célula A1 para a célula D1, mas quero que toda a coluna A funcione como eu quero.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
Set wks = ActiveSheet
theRow = Target.Row
theColumn = Target.Column
theValue = Target.Value
If theRow = 1 Then
If theColumn = 1 Then
    Application.EnableEvents = False
    wks.Cells(1, 4) = theValue
    Target.Clear
    Application.EnableEvents = True
End If
End If
End Sub

    

Answer 1

Experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        Target.Offset(0, 3).Value = Target.Value
        Target.Clear
    Application.EnableEvents = True
End Sub