Sub Выполнить_Отчет()

Dim conn As New ADODB.Connection
    conn.ConnectionString = "Data Source=Test;Initial Catalog=Terminals;User ID=sa;Password=111"
    conn.Provider = "SQLOLEDB"
    conn.CommandTimeout =  1000000 
    conn.Open
           
    'Заполняем отчет

    Dim rst32 As New ADODB.Recordset
    rst32.ActiveConnection = conn
    rst32.CursorLocation = adUseClient
    rst32.Open "EXEC [dbo].[GetProviders] @DateFrom = '" & Cells( 6 ,  2 ) & Cells( 7 ,  2 ) & "01'", conn
    ActiveWorkbook.Sheets("Отчет").Range("A1").CopyFromRecordset rst32
    rst32.Close
    conn.Close

End Sub