Taking sub total after filtering..

[asyamonique]

Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With Range("A" & i)
If .Value = ComboBox1.Value Then
.Offset(, 1).Resize(, 26).Copy
Range("AE" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next i
 
Range("AE" & Rows.Count).End(xlUp).Offset(2).Value = " "

Good Day,
Captioned code filtering the combobox values all the way down, and works fine, how can i get the sub totals(sum values for entire rows) after that code

Range("AE" & Rows.Count).End(xlUp).Offset(2).Value = " "

into the next row?
Many Thanks

 

[asyamonique]

Is there anybody can help me on that topic?
Cheers