Hilfe bei folgender Formel

Sub ST_tranfer_werte()
Dim Datum As String, Name As String, W?rfe As String, Ziel As String, Punkte As String, Einfach  _
As String, Doppel As String, Trippel As String, Zeit As String
Worksheets("Score Training").Select
Datum = Range("K19")
Name = Range("A4")
W?rfe = Range("K6")
Ziel = Range("K1")
Punkte = Range("N6")
Einfach = Range("C6")
Doppel = Range("E6")
Trippel = Range("G6")
Zeit = Range("K14")
Worksheets("Statistic Score Training").Select
Worksheets("Statistic Score Training").Range("A5").Select
If Worksheets("Statistic Score Training").Range("A5").Offset(1, 0)  "" Then
Worksheets("Statistic Score Training").Range("A5").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Datum
ActiveCell.Offset(0, 1).Select '###Bis hier hin Funktioniert es!!!
AvtiveCell.Value = Name        '### Hier gibt es den Fehler 424 "Objekt erforderlich" Die  _
aktive Zelle wird Korrekt angezeigt
ActiveCell.Offset(0, 2).Select
AvtiveCell.Value = W?rfe
ActiveCell.Offset(0, 2).Select
AvtiveCell.Value = Punkte
ActiveCell.Offset(0, 3).Select
AvtiveCell.Value = Einfach
ActiveCell.Offset(0, 4).Select
AvtiveCell.Value = Doppel
ActiveCell.Offset(0, 5).Select
AvtiveCell.Value = Trippel
ActiveCell.Offset(0, 6).Select
AvtiveCell.Value = Zeit
End Sub