If one follows your example's instructions, rather than your example's
cell references, one way:

Dim rRng As Range
Set rRng = Range("I3:I" & Range("I" & Rows.Count).End(xlUp).Row)
With rRng.Offset(rRng.Count + 1, 0).Resize(1, 1)
.Formula = "=SUBTOTAL(109," & rRng.Address(False, False) & ")"
.AutoFill .Resize(1, 3)
.Formula = Application.Substitute(.Formula, "103,", "109,")
End With


In article ,
"swatsp0p" wrote:

Please translate the following commands into working code.

start in column I
find the last row
go down two more rows (leaving one blank row)
enter formula =SUBTOTAL(103,I3:I*)
move one cell right (col K)
enter formula =SUBTOTAL(109,J2:J*)
move one more cell right (col L)
enter formula =SUBTOTAL(109,L2:L*)

* = the last row with data above current row.

Thank you.