UserNr. und Date nur in 1 Spalte

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Column
Case 1
Sheets("Tabelle1").Range(Target.Address).Offset(0, 12).Value = _
Application.UserName & " - " & Date
Case Else
End Select
Application.EnableEvents = True
End Sub

Aber: die "UserNr." und "Datum" wird nicht nur in Spalte M geschrieben,
sondern noch in 12 weitere Spalten (bis Spalte Y).
Es soll aber nur die Spalte M beschrieben werden.
Wer weiß woran das liegt?
Danke im voraus,
gruss
alex