ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:="=" & Date _
        , Operator:=xlAnd

Sub qq()
    Dim i&
    i = Columns(1).Cells.Find(1, , , , xlByRows, xlPrevious).Row
    Cells(i, 1).Offset(1).Resize(10) = 1
End Sub

Case "Название сделки", "WC total", "Бюджет", "Переводчик", "WC переводчика (факт)", "Ставка переводчика", "Сумма", "Редактор", "WC редактора (факт)", "CAT", "Ставка редактора", "", "Дедлайн", "Постобработка", "Верстальщик", "Объём вёрстки", "Стоимость вёрстки", "Примечания общие", "Примечание 1", "Примечание 2", "Примечание 3", "Примечание 4", "Примечание 5", "(До)внести стат. в SC", "Ссылка в CAT/TMS"
Case Else
            If Not r Is Nothing Then

Sub qq()
    Dim i&, r As Range
    For i = 1 To 100
        Select Case Cells(1, i).Value
        Case "Название сделки", "WC total", "Бюджет", "Переводчик", "WC переводчика (факт)", "Ставка переводчика", "Сумма", "Редактор", "WC редактора (факт)", "CAT", "Ставка редактора", "", "Дедлайн", "Постобработка", "Верстальщик", "Объём вёрстки", "Стоимость вёрстки", "Примечания общие", "Примечание 1", "Примечание 2", "Примечание 3", "Примечание 4", "Примечание 5", "(До)внести стат. в SC", "Ссылка в CAT/TMS"
            If Not r Is Nothing Then
                Set r = Union(r, Columns(i))
            Else
                Set r = Columns(i)
            End If
        End Select
    Next
    r.Delete
End Sub

Sub ww()
    x = Now
    MsgBox x
    x = Date
    MsgBox x
End Sub

Sub qq()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        sh.Visible = True
    Next
    For Each sh In ThisWorkbook.Worksheets
        Select Case sh.Name
        Case "Лист1", "Лист4"
        Case Else
            sh.Visible = False
        End Select
    Next
    Application.ScreenUpdating = True
End Sub

  Set rLastFound = ActiveSheet.AutoFilter.Range.Find(What:=t, LookIn:=xlValues, LookAt:= _

Sub Поиск_Яч(Optional t) 'поиск по листу
Static rLastFound As Range
  If IsMissing(t) Then 'вызов по горячей клавише
    If Not rLastFound Is Nothing Then Set rLastFound = Cells.FindNext(rLastFound)
  Else
'    Set rLastFound = Cells.Find(What:=t, LookIn:=xlValues, LookAt:=
    Set rLastFound = AutoFilter.Range.Find(What:=t, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
              'MsgBox "Не найдено!", vbExclamation, "ВНИМАНИЕ!!!"
            'Exit Sub
  End If
  If Not rLastFound Is Nothing Then rLastFound.Offset(0, 1).Activate
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address(0, 0) = "E1" Then
           Поиск_Яч Target 'поиск в ячейке E1
        End If
End Sub

Dim rng_Refresh As Range
 
Set rng_refrsh = Range("Обновить_запросы[Обновить_запросы]")

Rows(ActiveCell.Row).Resize(6).Select

Sub Лечилка()
    For Each cl In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
        If cl.Text <> cl.Value Then
            cl.Value = cl.Text
        End If
    Next
End Sub

TextBox2 = Format(TextBox2, "# ##0.00")

Sub test_Value()
    Range("A2:C5").Value = Range("A2:C5").Value
End Sub