Somando números na mesma célula

No Script abaixo, gostaria de saber como faço para ter a mesma função da célula A1 nas células A2 até A50, por exemplo.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = “$A$1” Then
If IsNumeric(Target) Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End If
End If
End Sub