Hochzählen die 2.te

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Adr As Date
Dim at As String
If Target.Address <> "$A$1" Then Exit Sub

at = Range("$B$1").Value + 1
Range("$B$1").Value = at

End Sub
Das gilt für eine Zeile,ich möchte es für alle haben

aber jetzt kommts wie kann man den Code abändern das er fortlaufend gilt??
Also ich habe in A1bis A300 jeweils einen Datumwert und möchte wenn ich A1 ändere sich B1 hochzählt
wenn ich A2 ändere sich B2 hochzählt usw.
Weiss jemand Rat wie ich den Code abändern muss das es funktioniert?

Danke für eure Hilfe

mfg
Diethard