Goal Seek Range Change

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!!!

I know I have to change the "D7" to ActiveCell, I just don't know how to write it...

Range("ActiveCell").GoalSeek Goal:=0, ChangingCell:=Range("D4")?

Thanks!!!!