Input Box/Macro Question

[AGains]

I am new to this and I desperately need your help. I am trying to create an input box that limits an excell autofill. For instance if the range is G3:G7 and the user enters G5 in the input box, than only G3:G5 will be filled. How do you do this in the macro. this is what i have so far...please help

Andrew


Sub InvestmentCalc()
'
' InvestmentCalc Macro
' Macro recorded 4/13/2005
'

'
Dim strCell As String
strCell = InputBox("Enter Last Cell to be Filled")

Range("G3").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("G3").Select
Selection.AutoFill Destination:=Range("G3:G6"), Type:=xlFillDefault
Range("G3:G6").Select
End Sub

 

[trucktime]

Macro

Please do not post your question multiple times.