Sub BOM_extract()
Dim Datasheet As Worksheet, TSheet As Worksheet, FltRng As Range, TbOutput(), _
Area As Range, TbInput(), Ri As Long, Ro As Long
Set Datasheet = Sheets("Data")
Set TSheet = Sheets("Raw_data")
Datasheet.Select
Selection.AutoFilter
Datasheet.Range("$A$2:$EI$254").AutoFilter Field:=11, Criteria1:="Table"
Set FltRng = Datasheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
ReDim TbOutput(1 To Datasheet.UsedRange.Rows.Count, 1 To 2)
For Each Area In FltRng.Areas
TbInput = Area.Value
For Ri = 1 To UBound(TbInput, 1)
Ro = Ro + 1
TbOutput(Ro, 1) = TbInput(Ri, 1) ' A
TbOutput(Ro, 2) = TbInput(Ri, 4) ' D
Next Ri, Area
TSheet.Select
TSheet.[B3:C3].Resize(UBound(TbOutput, 1)).Value = TbOutput
End Sub