Function CountIfComment(rCond As Range, iCond, rngCmnt As Range)
Application.Volatile True
Dim iCl As Range
For Each iCl In rCond
    If Not rngCmnt.Comment Is Nothing Then
        If iCl.Value = iCond And iCl.Comment.Text = rngCmnt.Comment.Text Then CountIfComment = CountIfComment + 1
    End If
Next
End Function

Function СЧЁТЕСЛИКОММЕНТ(rCond As Range, iCond, iCmnt)
    Application.Volatile True
    Dim iCl As Range
    For Each iCl In rCond
        If Not iCl.Comment Is Nothing Then
            If iCl.Value = iCond And iCl.Comment.Text = iCmnt Then
                СЧЁТЕСЛИКОММЕНТ = СЧЁТЕСЛИКОММЕНТ + 1
            End If
        End If
    Next
End Function

shTarget.Name = Left(shSrc.Name, 4) & "-" & i '4 символа

=ИНДЕКС($B$25:$D$31;ПОИСКПОЗ(D2;$A$25:$A$31;0);ПОИСКПОЗ(F2;$B$24:$D$24;0))

=Таблица2[[#Данные];[Затраты]]

 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.ListObjects(1).HeaderRowRange) Is Nothing Then
    With Application
    .EnableEvents = 0: .Undo: .EnableEvents = 1
    End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A4:BM4")) Is Nothing Then Exit Sub
With Application
.EnableEvents = 0: .Undo: .EnableEvents = 1
End With
End Sub

Sub макрос2()
Dim LastRow As Long
With Sheets("Лист1")
    LastRow = .Cells(.Rows.Count, 19).End(xlUp).Row + 1
    Range("A1").Copy .Range(.Cells(18, 19), .Cells(LastRow, 19))
End With
End Sub

Public Function СЦЕПИТЬДИАПАЗОН(ДИАПАЗОН As Range, Optional РАЗДЕЛИТЕЛЬ$ = " ") As String
Dim arr(), I&, J&
arr = ДИАПАЗОН.Value
For I = LBound(arr) To UBound(arr)
    For J = LBound(arr, 2) To UBound(arr, 2)
    If arr(I, J) <> "" Then
        СЦЕПИТЬДИАПАЗОН = IIf(СЦЕПИТЬДИАПАЗОН = "", arr(I, J), СЦЕПИТЬДИАПАЗОН & РАЗДЕЛИТЕЛЬ & arr(I, J))
    End If
    Next
Next
End Function