The easiest way is to write some code to do it, I am not sure this is exactly correct but it shows you the wasy i would do it ( all with variant arrays again!!). I am assuming that the mapping is in H2 to M3 and the numbers from the filter are in B2 to B16
Sub test()
Worksheets("Mapdata").Select
inarr = Range(Cells(2, 8), Cells(3, 13))
numbs = Range(Cells(2, 2), Cells(16, 2))
Range(Cells(1, 1), Cells(120, 4)) = ""
outarr = Range(Cells(1, 1), Cells(120, 4))
indi = 2
For i = 1 To 6
For j = 1 To 15
outarr(indi, 1) = inarr(1, i)
outarr(indi, 2) = numbs(j, 1)
outarr(indi, 3) = inarr(2, i)
outarr(indi, 4) = j
indi = indi + 1
Next j
Next i
Range(Cells(1, 1), Cells(120, 4)) = outarr
End Sub