Visual Basic para Aplicaciones - Sumar por mes y año

Private Sub TextBox1_AfterUpdate()

    Dim SumasF(13) As Double, SumasG(13) As Double, SumasH(13) As Double

    Dim Año As Date

    'pongo fecha en formulario

    FacturadoA = Date

    'En el textbox1 hay que poner el año que buscas

    Año = TextBox1

    'Acumulamos

    For x = 3 To Range("A" & Rows.Count).End(xlUp).Row

        If Año = Year(Range("A" & x)) Then

            Mes = Month(Range("A" & x))

            'aqui es donde no se como poner el mes y el año

            'Totales mes por año

            SumasF(Mes) = SumasF(Mes) + Range("F" & x)

            SumasG(Mes) = SumasG(Mes) + Range("G" & x)

            SumasH(Mes) = SumasH(Mes) + Range("H" & x)

            'Totales año

            SumasF(13) = SumasF(13) + Range("F" & x)

            SumasG(13) = SumasG(13) + Range("G" & x)

            SumasH(13) = SumasH(13) + Range("H" & x)

        End If

    Next

    'Totales mes a formulario

    For x = 1 To 13

        If Not SumasF(x) = 0 Then

            Controls("F" & x) = FormatNumber(SumasF(x))

            Controls("G" & x) = FormatNumber(SumasG(x))

            Controls("H" & x) = FormatNumber(SumasH(x))

        End If

    Next

    'Totales año a formulario

    Controls("F13") = FormatNumber(SumasF(13))

    Controls("G13") = FormatNumber(SumasG(13))

    Controls("H13") = FormatNumber(SumasH(13))

End Sub