I am trying to develop code so that on the event that a1 is not blank the
cursor will go to B2 and take $A$1*B1. Then move over one cell to C2 and
take $A$1*C1 out to a100.

So far I have;


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$1" Then
Application.EnableEvents = False
If Target.Value < """" Then
'Need Help with Code"

End If
Application.EnableEvents = True
End If

End Sub

As always, thanks a lot for any help.