Private Sub CommandButton2_Click()
' Запрос1_mdf (Excel 2003)
          Dim [b]d[/b] As Date
          Dim [b]d2[/b] As Date

          If Range("B4") <> "" Then
          Columns("B:E").Select
          Selection.ClearContents
          End If
          'ввожу переменные для выбора периода в Excel
          d = Range("R1")
          d2 = Range("R2")
                
          'Запрос в БД записан макрорекордером
          Range("B4").Select
             With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
              "ODBC;DRIVER=SQL Server;SERVER=server;UID=admin;APP=Microsoft Office 2003;WSID=DIMAMELN;DATABASE=Reestr_Lavanda;Trusted_Connection=Ye" _
              ), Array("s")), Destination:=Range("B4"))
              .CommandText = Array( _
              "SELECT PUTIVKA.Suma, PUTIVKA.NUMBER, PUTIVKA.FROM_D, PUTIVKA.To_D" & Chr(13) & "" & Chr(10) & "FROM Reestr_Lavanda.dbo.PUTIVKA PUTIVKA" & Chr(13) & "" & Chr(10) & "WHERE (PUTIVKA.FROM_D>={ts 'd'} And PUTIVKA.FROM_D<={ts 'd2:" _
              , "00'})" & Chr(13) & "" & Chr(10) & "ORDER BY PUTIVKA.Suma, PUTIVKA.NUMBER")
              .Name = "reestr"
              .FieldNames = True
              .RowNumbers = False
              .FillAdjacentFormulas = False
              .PreserveFormatting = True
              .RefreshOnFileOpen = False
              .BackgroundQuery = True
              .RefreshStyle = xlInsertDeleteCells
              .SavePassword = False
              .SaveData = True
              .AdjustColumnWidth = True
              .RefreshPeriod = 0
              .PreserveColumnInfo = True
              .Refresh BackgroundQuery:=False
                    
          End With
          Columns("D:E").Select
          Selection.NumberFormat = "dd.mm.yy;@"
          Selection.ColumnWidth = 8
          End Sub

.Refresh BackgroundQuery:=False

    Dim [b]d[/b] As Date
          Dim [b]d2[/b] As Date

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

      Selection.AutoFilter Field:=2, Criteria1:= Range"A4"
     End If
End sub

Range"A4"

Range("A4")