Zellen berechnen in gefilterter Tabelle

Sub Filtermakro2a()
Dim Tb As Worksheet
Dim v1 As Double 'in den Zellen steht zwar ein Datum, verglichen wird aber mit der fortlaufenden Zahl
Dim v2 As Double
'für Datenfilterung
Set Tb = Sheets("Buchen_1087789")
If Tb.AutoFilterMode Then Tb.AutoFilterMode = False ' Autofilter ausschalten
v1 = Tb.Range("N7").Value       'später UF TextBox2.value
v2 = Range("N8").Value          'später UF TextBox3.value
Tb.Range("B9:F" & Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter Field:=1, _
Criteria1:=">=" & v1, Operator:=xlAnd, _
Criteria2:="