Hi,

Here's some smart VBA way:

' ************************* ' ************************* '

Sub MyQuery()

    Dim oQueryWsh As Worksheet
    Dim oDocWsh As Worksheet
    Dim oElemWsh As Worksheet
    Dim oQueryRng As Range
    Dim oDocRng As Range
    Dim oElemRng As Range
    Dim lngDocNum As Long
    Dim lngElemNum As Long
    Dim oDestRng As Range
    Dim i As Long
    Dim j As Long
   
    Application.ScreenUpdating = False
   
    Set oQueryWsh = Sheet1
    Set oDocWsh = Sheet2
    Set oElemWsh = Sheet3
   
    With oQueryWsh.UsedRange
        Set oQueryRng = _
            .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
        oQueryRng.Clear
    End With
   
    With oDocWsh.UsedRange
        Set oDocRng = _
            .Offset(1, 0).Resize(.Rows.Count - 1, 1)
    End With
   
    With oElemWsh.UsedRange
        Set oElemRng = _
            .Offset(1, 0).Resize(.Rows.Count - 1, 1)
    End With
   
    lngDocNum = oDocRng.Rows.Count
    lngElemNum = oElemRng.Rows.Count
   
    Set oDestRng = _
        oQueryRng.Cells(1, 2).Resize(lngDocNum * lngElemNum, 1)
   
    oDocRng.Copy oDestRng
   
    With oQueryRng.Cells(1, 1)
        .Value = 1
        .AutoFill _
            Destination:=.Resize(lngDocNum * lngElemNum, 1), _
            Type:=xlFillSeries
    End With
   
    i = 1
    For j = 1 To lngElemNum
        oQueryRng.Cells(i, 3).Value = oElemRng.Cells(j, 1).Value
        i = i + lngDocNum
    Next j
   
    Set oDestRng = Nothing
    Set oElemRng = Nothing
    Set oDocRng = Nothing
    Set oQueryRng = Nothing
    Set oElemWsh = Nothing
    Set oDocWsh = Nothing
    Set oQueryWsh = Nothing
   
    Application.ScreenUpdating = True

End Sub

' ************************* ' ************************* '

Best regards.