=СУММ(ЕСЛИОШИБКА(1/МУМНОЖ(--(ИНДЕКС(ЕСЛИ(Лист1!$M$2:$M$25=O2;Лист1!$A$2:$L$25;);Ч(ИНДЕКС(ОСТАТ((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1);ЧСТРОК(Лист1!$A$2:$M$25))+1;0));Ч(ИНДЕКС(ОТБР((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1)/ЧСТРОК(Лист1!$A$2:$M$25))+1;0)))=ТРАНСП(Т(+ИНДЕКС(ЕСЛИ(Лист1!$M$2:$M$25=O2;Лист1!$A$2:$L$25;);Ч(ИНДЕКС(ОСТАТ((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1);ЧСТРОК(Лист1!$A$2:$M$25))+1;0));Ч(ИНДЕКС(ОТБР((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1)/ЧСТРОК(Лист1!$A$2:$M$25))+1;0))))));СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))^0);))

Sub zzzz()
    Dim OldWeek As Worksheet, NewWeek As Worksheet
    Dim i As Long, Rng1 As Range, Rng2 As Range

    Set NewWeek = Sheets("New")
    Set OldWeek = Sheets("Old")

    ks = 2 ' интервал
    k1 = 1 ' столбец старта, откуда начинаем
    k2 = 5 ' кол-во вставок
    k3 = ks * k2 + k1
    y = 0
    
    For i = k1 + ks - 1 To k3 Step ks
        With NewWeek
            With .Range(.Cells(1, i - 1), .Cells(43, i - 1))
                .Copy
                OldWeek.Range(.Address).Offset(, 1).PasteSpecial
            End With
        End With
    Next i
End Sub

Function xx() As Range
    With [Z2].Resize(9)
        .Value = [transpose(transpose(Text(Row(R1:R9),"ТО 000")))]
        Set xx = .Cells
    End With
    On Error Resume Next
    Dim sFolder: sFolder = ThisWorkbook.Path & "\Photo\"
    With Application.Caller
        .Parent.OLEObjects("Image1").Object.Picture = LoadPicture(sFolder & .Value & ".jpg")
    End With
End Function

let
    Source =
        Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Grouped =
        Table.Group(
            Source,
            List.RemoveMatchingItems(
                Table.ColumnNames(Source),
                {"picture"}
            ),
            {
                {
                 "picture",
                 each Text.Combine(_[picture],", "),
                 type text
                }
            }
        )
in
    Grouped

=СЧЁТ(F31:BE34%;"*")

Option Explicit
#If VBA7 Then
    Private Declare PtrSafe Function GetForegroundWindow _
        Lib "User32" () _
    As LongPtr
    Private Declare PtrSafe Function GetClassName _
        Lib "User32" _
        Alias "GetClassNameA" ( _
            ByVal hWnd As LongPtr, _
            ByVal lpClassName$, _
            ByVal nMaxCount& _
        ) _
    As Long
#Else
    Private Declare Function GetForegroundWindow _
        Lib "User32" () _
    As Long
    Private Declare Function GetClassName _
        Lib "User32" _
        Alias "GetClassNameA" ( _
            ByVal hWnd&, _
            ByVal lpClassName$, _
            ByVal nMaxCount& _
        ) _
    As Long
#End If
#If VBA7 Then
Function ClassName$(ByVal hWnd As LongPtr)
#Else
Function ClassName$(ByVal hWnd&)
#End If
    Dim windowClass As String
    Dim retVal      As Long
    windowClass = Space(255)
    retVal = GetClassName(hWnd, windowClass, 255)
    ClassName = Left$(windowClass, retVal)
End Function
Sub FindText(sFilePath$, sText$, Optional timeout = 5)
    Dim oFile As Object
    Set oFile = CreateObject("shell.application").Namespace(0).parsename(sFilePath)
    If oFile Is Nothing Then
        Err.Raise 53, , "Файл не найден"
    End If
    With oFile
        
        .invokeverbex ("open")
        Dim t#: t = Timer
        Do While ClassName(GetForegroundWindow) <> "AcrobatSDIWindow"
            DoEvents
            If Timer - t > timeout Then
                 MsgBox "TimeOut": Exit Sub
            End If
        Loop
        
        With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
            .settext sText$
            .putinclipboard
        End With
        
        AppActivate .Name & " - Adobe Acrobat Reader DC"
        DoEvents
        SendKeys "^+F^A{del}^v{enter}", 1
        
    End With
End Sub

function IsColumnVisible(RngRef,dummy) {
    var sh = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet();
    var rng = sh.getRange(RngRef);
    var col = rng.getColumn();
    return [
        Array.apply(null, Array(rng.getWidth())).
        map((_, i) => +!sh.isColumnHiddenByUser(col + i))
    ]
}

=ArrayFormula(Sum(IsColumnVisible("d2:F2";D2:F2)*D2:F2))