Private Sub Worksheet_Change(ByVal Target As Range)
Dim lR As Long

If Target.Column = 15 Then
If Target.Row > 1 Then
If Target.Value = "Отгружен" Then
   lR = Target.Row
   Range(Cells(lR, 1), Cells(lR, 15)).Value = Range(Cells(lR, 1), Cells(lR, 15)).Value
End If
End If
End If
End Sub

lCol = 1
For Each iName in aArray("TextBox1", "TextBox5",...)
.Cells(lRow, lCol).Value = Me.Controls(iName).Value
lCol = lCol +1
Next

Private Sub Workbook_Open()
    Dim n As Long, FoundRng As Range
    
    Set FoundRng = Cells.Find(What:=Date, LookIn:=xlFormulas, LookAt:=xlWhole)
    If Not FoundRng Is Nothing Then
        n = FoundRng.Column - 7
        Cells(1, 6).Select
        ActiveWindow.SmallScroll ToRight:=n
    End If

End Sub

Dim i As long
i = Worksheets("Лист1").Range("K2").value

    Worksheets("Лист2").range(Cells(3, 19),Cells(i, 19)).Value = Worksheets("Лист1").range(Cells(3, 1),Cells(i, 1)).Value

Private Sub Workbook_Open()
Dim strMonth As String, lDay As Long, rngDate As Range
strMonth = LCase(Format(Date, "mmmm"))
lDay = Day(Date)

Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Interior.Pattern = xlNone
    
Cells.Find(What:=strMonth).Select
Set rngDate = Range(Cells(ActiveCell.Row, ActiveCell.Column - 2), Cells(ActiveCell.Row + 7, ActiveCell.Column + 4))
    rngDate.Find(What:=lDay).Interior.Color = 65535

End Sub

=ЕСЛИ(ИЛИ(ЛЕВСИМВ(C3;1)="Д";ЛЕВСИМВ(C3;1)="Р");B3;0)

=СУММ(Иванов:Сидоров!B6)
 

=ЕСЛИОШИБКА(B2/ИНДЕКС($A$2:B2;1;ПОИСКПОЗ(3E+307;$A$2:A2;1))*100;"") 

=ИНДЕКС($B$2:$L$12;СТРОКА($A1);ПОИСКПОЗ(9E+307;$B2:$L2;1))