Macro - Filter & Sum

I need is to run a macro which does the following:

Autofilter is on, so on column AR filter to results that show '1', then on column H for all results there are 6 max but some dont show when '1' is selected as data may not be present.

So once I have filtered down AR and then filtered down H, I need a sum on AN, and AO for JUST those results!

Now I can do all this manually and have a quick mock code but this needs to be done sooner rather than later so im going to cont doing it manually if anyone can help with the code it will speed things up for me tho, thanks!

Sub SpeedUp()
' Location is in H, Quartile is in AR
' I to AM is irrelevant
' SUM of AN
' SUM of AO

Dim Arr As Variant
Arr = Array("F1", "F2", "F3", "F4")

For i = 1 To 4

So basically loop thru, loop thru, change the filtering, subtotal on the new filters copy to a new sheet, or even hold all values in a table or array till the end and i will manually paste