A kérdéses lapodhoz kell rendelned az eseménykezelő makrót.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target > "" Then
        [B1] = [A1]
        [B1].Insert Shift:=xlDown
    End If
End Sub

Ebben benne van, amit  Robbantomestertől tanultam (#16683).