=И($B4="2 программа"; ДАТАМЕС($C4;10)<=$B$1)

With Range("A2:A" & lr)
    .NumberFormat = "@"
    .Formula = Application.Text(.Value, "0000000")
End With

=ЕСЛИ(ИЛИ(B3=МАКС($B$3:$B$50);C3=МАКС($C$3:$C$50);D3=МАКС($D$3:$D$50);E3=МАКС($E$3:$E$50);F3=МАКС($F$3:$F$50));"";СУММ(C3:F3))

Sub dihlofos()
Dim sh As Worksheet, lr As Long, i As Long

Set sh = ActiveSheet

    With sh
        lr = Cells(Rows.Count, 2).End(3).Row
        
        For i = 1 To lr
            Cells(i, 1).Value = "слово"
        Next i
    End With

End Sub

Cells.SpecialCells(xlVisible).Find("*контра*").Offset(0, 1).Select

?Application.DisplayAlerts

TRUE

avFiles = Dir(sPath + "*.xls") 

Option Explicit

Sub CopySheet()
Dim shts As Worksheet
   For Each shts In ThisWorkbook.Worksheets ' семейство всех листов
                 If shts.Name = ActiveSheet.Range("C1").Value Then ' если лист есть
                       MsgBox "Есть такой!", vbCritical, "НИЗЗЯ!" ' наругать
                       Exit Sub ' покинуть теплый дом
                 End If
           Next
   Sheets("Шаблон").Copy After:=Sheets(Sheets.Count)
   Sheets("Шаблон (2)").Name = Sheets("Шаблон").Range("C1").Value
End Sub

Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim sr As Range
Set sr = Range("B1")

    If Not Intersect(Target, sr) Is Nothing Then
        Call ПоминутнаяЗапись
    Else
        Exit Sub
    End If
    
End Sub