Makro

Selection.Copy
Application.Goto Reference:="Übertrag"
Selection.End(xlUp).Select
Range("B*").Select
ActiveSheet.Paste
Range("A3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TODAY()"
End Sub

Ich möchte mit dem Makro bezwecken, das ich in blatt a eine zelle kopiere, dann mit einem gehezu befehl auf blatt B wechsele.
Dort soll mit einem end oben, unten Befehl der Inhalt der Zwischenablage an eine Liste unten angehängt wird.

Der Makro, den ich aufgezeichnet habe überschreibt aber jedesmal die Zelle B3. Warum ??