Try this..
Click the Button on the DataImport sheet.. result shown on a new sheet i added (Sheet1).
Private Sub CommandButton1_Click()
Dim x, xx, z, cnt As Long, i As Long, ii As Long
x = [A1].CurrentRegion: xx = [A1].CurrentRegion.Columns(1).SpecialCells(2).Count: cnt = 1
ReDim z(1 To xx, 1 To 10)
For i = LBound(x) To UBound(x)
If x(i, 1) <> "" Then
If i > 1 Then cnt = cnt + 1
For ii = LBound(x, 2) To UBound(x, 2)
z(cnt, ii) = x(i, ii)
Next ii
Else
z(cnt, 10) = z(cnt, 10) & " " & x(i, 10)
End If
Next i
Sheets("Sheet1").[A2].Resize(UBound(z), 10).Value = z
End Sub