Copy Formula Macro

  • Thread starter Thread starter ME Pike
  • Start date Start date
M

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



.
Click to expand...
 
Back
Top