If all the lines follow this pattern, yes, very easily:
Code:
Sub haai
For js = 1 To X 'where X is the top number
ActiveSheet.Shapes(js).DrawingObject.Formula = "=$A$" & js
Next js
End Sub
If you've never done loops before (the From...End part), it may look difficult, but you'll find loops are something you'll use routinely if you keep programming.
I always name my loop variables "j" and one other letter; in this case "js" for "Shape". You can use any variable name you like, of course.