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:
Ver originalhojas = 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