You do know you've got circular references, right?

This isn't very adaptable, but it will do what you specified:

Public Sub FillDownH3I3Macro()
With Range("H3:I3")
.AutoFill Destination:=.Resize(ActiveCell.Row - 3, 2)
End With
End Sub


In article ,
"ME Pike" wrote:

I have the following formulas:
cell h3: =H3+SUMIF(G$3:$H3,"<x",E$3:$F3)
cell i3: =H2-E3

Assume my current cursor position is cell i53. I would
like a macro that would copy the above formulas down
columns H and I to the row above the active cell (row 52).

Any Ideas? Thanks,

Matt