Hello!!!

I'm new here, and don't have experience in VBA programming. I need some help!

In the following:

Sub GoalSeek()
'
' GoalSeek Macro
'

'
Range("D7").GoalSeek Goal:=0, ChangingCell:=Range("D4")
End Sub


I need to change the range from a specific cell, to be the active cell. What do I need to do/change/replace in the macro above?

Thanks!!!