Sub macros()

endrow =  1 
sql_txt = "SELECT dept.ID_DEPARTMENT, cl.NAME, dept.NICKNAME, i.ID_ITEM, i.NAME, il.QTY " & _
          "FROM SDD.CLIENT cl, SDD.DEPARTMENT dept, SDD.ITEM i, SDD.ITEMLIST il " & _
          "WHERE cl.ID_COMPANY = dept.ID_COMPANY And cl.ID_CLIENT = dept.ID_CLIENT And il.ID_ITEM = i.ID_ITEM And il.ID_DEPARTMENT = dept.ID_DEPARTMENT And ((i.ID_ITEM = 3020))"

For row_str =  1  To  5 
server_nick = Sheets("serverlist").Cells(row_str,  1 )

source_txt = "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=grabovskiyaa;PWD=avt231090;SERVER=ora" & server_nick & ".ntdomain.prk;"
destination_cell = "A" & endrow

Call sql_query

Cells(Rows.Count,  1 ).Select
Selection.End(xlUp).Select
endrow = ActiveCell.Row +  1 

destination_cell = "A" & endrow
Range(destination_cell).Select
Next row_str


End Sub

Sub sql_query()
'
' Макрос1 Макрос
'

'
    With ActiveSheet.ListObjects.Add(SourceType:= 0 , Source:=source_txt, Destination:=Range(destination_cell)).QueryTable
        .CommandText = sql_txt
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
   ' .ShowHeaders = False     'заголовки
        .RefreshPeriod =  0 
        .PreserveColumnInfo = False
        .ListObject.DisplayName = "Таблица_Запрос_из_Одинцово"
        .Refresh BackgroundQuery:=False
    End With
End Sub