tengo problema con esta macro

[exorton]

Tengo un excel con muchas hojas, en cada hoja me interesa una tabla que aparece y que tiene diferente cantidad de columnas y filas, pero todas comienzan en la "D9" de cada hoja.

Me interesa hacer un listado de el contenido de la tabla y el nombre de la hoja, lo hise de la siguiente manera.

Código vb:

hojas = Application.Sheets.Count - 4
    b = 1
    a = 0
        
    For i = 1 To hojas
        
        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, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        b = b + a
                
        For a = 0 To Rw
            Worksheets("Hoja4").Cells(b, 0).Value = Sheets(i).Name
        Next a
 
    Next i
 

me da error 1004 en la Parte donde dice Cells(b,1).select en la linea 16

Alguna idea??, al programar solo pegar sin el resto del código no tengo problemas.