Dim der&, zone As Range, i&, j%, c As Range
der = [A1000000].End(xlUp).Row - 3
Set zone = Union([A4].Resize(der, 2), [F4].Resize(der))
ReDim tablox(1 To der, 1 To 3)
For i = 1 To UBound(tablox)
j = 0
For Each c In Intersect(Rows(i + 3), zone)
j = j + 1
tablox(i, j) = c
Next
Next