Filtro datos de una hoja de excel (Datos) y luego calcule promedio, desviación estándar.

Hola, necesito ayuda tengo que filtrar datos de una hoja de excel (Datos) y luego realizar un estadístico de los datos filtrados (promedio, desviación estándar, etc), mi problema es que mi formula me toma todo los datos y no los que filtre...saludos

te envío parte del código.

Private Sub
CommandButton1_Click()
Dim suma As Integer
Dim contar As Integer
Dim promedio As Integer
Dim code As String

Label1 = ComboBox1.Value
code = Label1
code =Format(code, "c")
Sheets("Datos").Select
Range("A1").Select
Selection.AutoFilter

Sheets("datos").Range("a1").AutoFilter field:=2, Criteria1:=code, Operator:=xlAnd

contara =WorksheetFunction.Count(Range("g1:g500"))
suma = WorksheetFunction.Sum(Range("g1:g500"))
promedio = suma / contara
TextBox2 = promedio
End Sub

Private Sub
OptionButton1_Click()
ComboBox1.Clear

ComboBox1.AddItem"DT2"

ComboBox1.AddItem "DT3"
End Sub