Strange Behavior in Excel VBA Formula

Question

HERE IT IS:
Private Sub fillLicenseFormulas()
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
Dim gRange As String
gRange = "G3:G" & LastRow & ""
Range("g3").Formula = "=IF($G$3-($F$3+$E$3)<0,0,$G$3-($F$3+$E$3))"
Set SourceRange = ActiveSheet.Range("g3:g3")
Set fillRange = ActiveSheet.Range(gRange)
SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
Oddly, in Excel, this is the result:  =IF($J$6-($I$6+$H$6)<0,0,$J$6-($I$6+$H$6))
(Despite the "G" reference, the formula is actually in J)
I inherited this from a predecessor who was doing quite a bit of copy/manipulation from another Excel worksheet.  How can I insure that the formula pulls from the FINAL COLUMN ADDRESSES?
Thanks.
A. Wolf

Answer 1

Hi,
The code seems a bit odd to me, are you really wanting to put the same formula in multiple cells? That's what's going to happen because of the absolute references in the formula, maybe they should be relative references. Also finding the last row using usedrange
can be unreliable, I'd do it like below.
Having said that your code should populate Col G and does for me. Do we have all the code here?
[Code]
Dim LastRow As Long, SourceRange As Range, fillrange As Range
Dim gRange As String
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
gRange = "G3:G" & LastRow & ""
Range("g3").Formula = "=IF(G3-(F3+E3)<0,0,G3-(F3+E3))"
Set SourceRange = ActiveSheet.Range("g3:g3")
Set fillrange = ActiveSheet.Range(gRange)
SourceRange.AutoFill Destination:=fillrange, Type:=xlFillDefault
[/Code]