subtotal efter filtrering

skal kun bruge svaret en gang...

Sub SQparts()

Sheets("SQ").Activate
Dim Dest, ns, Month As Integer
Dest = 5
ns = 0
Month = 1

Dim SupplierName, Year, PeriodB, PeriodE, First, Second, PU, PL As Variant
Set SupplierName = Sheets("SQ").Cells(3, 2)
Set Year = Sheets("SQ").Range("F8")
First = ">="
Second = "<="
PeriodB = "-01-" & Year
PeriodE = "-31-" & Year
PL = "-30-" & Year
PF = "-28-" & Year


'Janaur
Sheets("Total").Range("A1").AutoFilter _
Field:=4, _
Criteria1:=SupplierName

With Sheets("Total").Range("A1")
.AutoFilter , Field:=1, Criteria1:=First & Month & PeriodB, Criteria2:=Second & Month & PeriodE, Operator:=xlAnd
End With
   
Sheets("SQ").Cells(Dest, 2) = Sheets("Total").Range("H4").End(xlDown).Value**
Sheets("SQ").Cells(Dest, 3) = Sheets("Total").Range("M4").End(xlDown).Value**
Sheets("Total").Range("A1").AutoFilter Field:=4
Sheets("Total").Range("A1").AutoFilter Field:=1


**lige pt har jeg bare sat min destination til at pege på en celle hvor jeg har lavet en fast subtotal, men det går ikke når der kommer mere data til. jeg ville jo ønsker at i stedet for at tage .value kan få den til at hente subtotal i stedet?