=ИНДЕКС($C$2:$C$7;СЧЁТЕСЛИ($H$1:H2;H2))

.Cells.Range("A1").FormulaLocal = "=sheet2!" & sheet2.Cells(cmbBox.ListIndex + 2, 1).Address

=ИНДЕКС($D$5:$D$11;ПОИСКПОЗ(9^9;$D$5:$D$11;1))-B3

Target.Offset(, 3) = Target.Value & Chr(10) & Target.Offset(, 3)
Target.Offset(, 3).Characters(Start:=12, Length:=100).Font.Strikethrough = True

If ActiveCell.Value = "" Then
            ActiveCell.Value = Date + 7
        Else
            ActiveCell.Value = Date + 7
        End If

=ИНДЕКС($G$7:G14;МАКС(($B$7:B14=B15)*СТРОКА($A$1:A8)))

=ЕСЛИ(МАКС(($A$2:$A$52=A2)*$E$2:$E$52)=E2;D2;"")

Selection.SpecialCells(xlCellTypeVisible)

Function Zamena(ячейка As Range) As String
Dim i%, k%
For i = 1 To WorksheetFunction.Min(Len(ячейка.Value), 10)
    If InStr(1, "aeIouy", Mid(ячейка, i, 1)) Then
        k = IIf(i = 10, 0, i)
        Zamena = Zamena & k
    Else
        Zamena = Zamena & Mid(ячейка, i, 1)
    End If
Next
Zamena = Trim(Zamena & Mid(ячейка, 11, 100))
End Function

дата = "17.09.19" 
windows (“сальдовая ведомость по главам баланса на " & дата & " НА"). Activate

зачем так длинно
Range("Z1").Select
    ActiveCell.FormulaR1C1 = "Code"
если можно просто
Range("Z1") = "Code"

СУММЕСЛИМН(D:D;A:A;I13;B:B;J13;C:C;"<"&$F$1)+СУММЕСЛИМН(D:D;A:A;I13;B:B;J13;C:C;"")