Subtotal a filtered range grrrr

Hi all, I have a piece of code which works fine if you change the

Criteria1

in the macro which is not efficient as there are many filter ranges. I did comment the filter range out and just filter it manually on the spreadsheet but the formula does not get added to the cell, its fine when not filtered but as soon as it has a filter it doesnt work, thanks for the advice and help yesterday but it's still not right and I cant see whats wrong with it.

Sub Filter_Sum()

Set W1 = Worksheets("Master")

Set Lastrow = W1.Cells(Rows.Count, "I").End(xlUp).Offset(2, 0)
 
 
 'With W1.Range("A1").CurrentRegion
  '  .AutoFilter
   ' .AutoFilter Field:=20, Criteria1:="340"
'End With

Lastrow.FormulaR1C1 = "=SUBTOTAL(109,R2C:R[-1]C)"



End Sub

if you don't unfilter the range the end(xlup) part will only find the last visible cell-that's why the .autofilter line was added before finding the last cell in the code I supplied

perhaps

Sub Filter_Sum()
dim lr as long
Set W1 = Worksheets("Master")
With W1
With .Range("A1").CurrentRegion
  lr = .row + .rows.count
End With

.cells(lr, "I").FormulaR1C1 = "=SUBTOTAL(109,R2C:R[-1]C)"
end with
End Sub

you're welcome :-)

don't forget to mark the thread solved