Copy Formula Macro

[ME Pike]

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

 

[J.E. McGimpsey]

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

 

[ME Pike]

Thanks, it worked perfectly.

-----Original Message-----
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



.