macro no me reconoce autofiltros

[JuanXXIII]

Hola a todos!

Estoy haciendo una planilla de cheques y donde necesito usar condiciones para sumar y contar, dentro de los filtros activados.
y es ahi donde la macro que hice, que es el codigo que subi, no me anda, osea anda pero no me tiene en cuenta la seleccion del autofiltro, me suma y me cuenta como si no estuviera ningun autofiltro activado.

Disculpame las molestias
y desde ya muchisimas gracias por su ayuda.
Saludos.

Código:

I = 16
    ACUM_IMPORTE = 0
    ACUM_IMPORTE_ABOGADO = 0
    ACUM_INTERES_COBRADO = 0
    ACUM_INTERES_ABOGADO = 0
    CONTVACIO = 0
    CONTVACIO_ABOGADO = 0
    
    ACUM_IMPORTE_CANJE = 0
    ACUM_INTERES_CANJE = 0
    CONTVACIO_CANJE = 0
    
    While Worksheets("Hoja1").Cells(I, 1).Value <> ""
                
       If Worksheets("Hoja1").Cells(I, 10).Value = 1 And Worksheets("Hoja1").Cells(I, 9).Value = "COBRADO" Then
          ACUM_IMPORTE = ACUM_IMPORTE + Worksheets("Hoja1").Cells(I, 7).Value
          ACUM_INTERES_COBRADO = ACUM_INTERES_COBRADO + Worksheets("Hoja1").Cells(I, 8).Value
          CONTVACIO = CONTVACIO + 1
          
       Else
          If Worksheets("Hoja1").Cells(I, 10).Value = 1 And Worksheets("Hoja1").Cells(I, 9).Value = "ABOGADO" Then
              ACUM_IMPORTE_ABOGADO = ACUM_IMPORTE_ABOGADO + Worksheets("Hoja1").Cells(I, 7).Value
              ACUM_INTERES_ABOGADO = ACUM_INTERES_ABOGADO + Worksheets("Hoja1").Cells(I, 8).Value
              CONTVACIO_ABOGADO = CONTVACIO_ABOGADO + 1
          Else
              ACUM_IMPORTE_CANJE = ACUM_IMPORTE_CANJE + Worksheets("Hoja1").Cells(I, 7).Value
              ACUM_INTERES_CANJE = ACUM_INTERES_CANJE + Worksheets("Hoja1").Cells(I, 8).Value
              CONTVACIO_CANJE = CONTVACIO_CANJE + 1
          End If
       End If
       
       
       I = I + 1
    
       Range("D5") = ACUM_IMPORTE
       Range("B5") = CONTVACIO
       Range("F5") = ACUM_INTERES_COBRADO
       
       Range("D6") = ACUM_IMPORTE_ABOGADO
       Range("B6") = CONTVACIO_ABOGADO
       Range("F6") = ACUM_INTERES_ABOGADO
       
       Range("D7") = ACUM_IMPORTE_CANJE
       Range("B7") = CONTVACIO_CANJE
       Range("F7") = ACUM_INTERES_CANJE
       
    
    Wend
    
    I = I - 1
         
    Worksheets("Hoja1").Cells(I, 7).Select
        celdaactiva = ActiveCell.Address
    
    Range("H10") = Application.WorksheetFunction.Subtotal(109, Range("G16:" + celdaactiva))
    Range("H13") = Application.WorksheetFunction.Subtotal(102, Range("G16:" + celdaactiva))
    
    Worksheets("Hoja1").Cells(11, 1).Select

[mrocf]

Hola! Juan.
En lo que muestras, no hay ni un solo detalle que indique que tienes una tabla de datos filtrada.

Además tu insistencia a utilizar Worksheets("Hoja1") revela que podrías -eventualmente- estar aplicando los WorksheetFunction a otra hoja que no la que te interesa.

En resumen: sube tu libro (una muestra significativa de él, claro) a un servidor gratuito y pásanos el enlace para mirarlo con mayor certeza.

Saludos, Cacho R.