tengo problema con esta macro

[exorton]

Hise una modificacion, arreglando unos errores de logica y me cambio el error ahora es en la linea 24

Sheets("Hoja4").Cells(b, 1).Select

El error es por subindice fuera del intervalo (tipo 9)

La verdad que no veo nada de eso, de hecho aumente los valores

Código vb:

hojas = Application.Sheets.Count - 4
    b = 1
    a = 0
    Dim Ficha As Integer
        
    For i = 1 To hojas
        
        Ficha = Sheets(i).Name
        Sheets(i).Select
        Range("D9").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        
        Rw = Selection.Rows.Count
        
        Sheets("Hoja4").Select
        Cells(b, 2).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
               
        For a = 1 To Rw
            b = b + a
            Sheets("Hoja4").Cells(b, 1).Select
        Next a
 
    Next i