Public Function WorkbookPageCount2() As Integer

    Dim ЧислоСтраницВсего As Integer     'Количество страниц (листов) которое необходимо вставить в принтер
    Dim ws As Worksheet     'Счётчик цикла при переборке листов
    Dim СтраницНаЛисте As Integer   'Страниц на одном рабочем листе
    
    If Not ActiveWorkbook Is Nothing And Not ActiveWindow Is Nothing Then
        ЧислоСтраницВсего = 0
        'Перебираем все листы в наборе
        For Each ws In ActiveWorkbook.Worksheets
            If ws.Visible = xlSheetVisible Then 'Не обрабатываем невидимые
                ws.DisplayPageBreaks = True                 'Разбиваем лист на страницы
                СтраницНаЛисте = ws.PageSetup.Pages.Count   'Узнаём, сколько страниц на листе
                ЧислоСтраницВсего = ЧислоСтраницВсего + СтраницНаЛисте
            End If
        Next ws
    End If
    WorkbookPageCount = ЧислоСтраницВсего
End Function

Sub Palantir()
    Dim CurCell As String, Row As Long, NextCell As String
    Application.ScreenUpdating = False

    Row = 1
    NextCell = Cells(Row, 1).Value
    Do
        CurCell = NextCell
        Row = Row + 1
        NextCell = Cells(Row, 1).Value
        Do
            CurCell = CurCell & " " & NextCell
            Rows(Row).Delete Shift:=xlUp
            NextCell = Cells(Row, 1).Value
        Loop Until ValueTest(NextCell) Or NextCell = ""
        
        Cells(Row - 1, 1).Value = CurCell
        
    Loop Until NextCell = ""

    Application.ScreenUpdating = True
End Sub


Function ValueTest(ByVal v As String) As Boolean
    ValueTest = _
        InStr(1, v, ",AFR/") <> 0 Or InStr(1, v, ",AME/") <> 0 Or InStr(1, v, ",AMR/") <> 0 Or _
        InStr(1, v, ",ANZ/") <> 0 Or InStr(1, v, ",AUS/") <> 0 Or InStr(1, v, ",CAM/") <> 0 Or _
        InStr(1, v, ",EAF/") <> 0 Or InStr(1, v, ",EME/") <> 0 Or InStr(1, v, ",ESA/") <> 0 Or _
        InStr(1, v, ",EUR/") <> 0 Or InStr(1, v, ",IOI/") <> 0 Or InStr(1, v, ",MEA/") <> 0 Or _
        InStr(1, v, ",MED/") <> 0 Or InStr(1, v, ",NAM/") <> 0 Or InStr(1, v, ",NEM/") <> 0 Or _
        InStr(1, v, ",NEU/") <> 0 Or InStr(1, v, ",NEZ/") <> 0 Or InStr(1, v, ",OCE/") <> 0 Or _
        InStr(1, v, ",SAF/") <> 0 Or InStr(1, v, ",SAM/") <> 0 Or InStr(1, v, ",SEM/") <> 0 Or _
        InStr(1, v, ",WAF/") <> 0 Or InStr(1, v, ",WME/") <> 0 Or InStr(1, v, ",WSA/") <> 0 Or _
        InStr(1, v, ",FEA/") <> 0
End Function