Dim db As String

db = CStr(ThisWorkbook.Worksheets("ОтчКО").Range("N2").Value)

    With ActiveWorkbook.Connections("ТАБЕЛЬ").OLEDBConnection
        .BackgroundQuery = True
        .CommandText = Array("exec [dbo].[SP_Rep_KO_ForТабель] " + CStr(db))
        .CommandType = xlCmdSql
        .Connection = "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=DWH;Data Source=dcr-bi-db"
        .RefreshOnFileOpen = False
        .SavePassword = False
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodStored
        .ServerSSOApplicationID = ""
        .AlwaysUseConnectionFile = False
    End With
    ActiveWorkbook.Connections("ТАБЕЛЬ").Refresh

ActiveSheet.Range("$B$4:$AQ$408").AutoFilter Field:=1, Criteria1:="0"