Auomatisches Ändern von Werten

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("B1") = 1
End If
End Sub

Dies bedeutet, dass eine Änderung in der Zell A1 eine 1 in die Zelle B1 geschrieben wird.
Nun möchte ich das auf die Zellen A1 bis A299 ausweiten.
Was muss ich tun?
Vielen Dank für Deine Hilfe!
Gruß
Alex