Function ProcessDates(rowData As Range, dateRow As Range, checkValue As Variant) As Variant
    Dim result As String
    Dim i As Long, cols As Long
    
    Dim seriesStartCol As Long 
    Dim inSeries As Boolean   
    
    ' --- Инициализация ---
    cols = rowData.Columns.Count
    result = ""
    inSeries = False
    
    ' --- Основной цикл по всем столбцам ---
    For i = 1 To cols
        ' Проверяем текущую ячейку в строке данных
        If rowData.Cells(1, i).Value = checkValue Then
            
            ' Если не находимся внутри, значит это её начало
            If Not inSeries Then
                inSeries = True
                seriesStartCol = i ' Запоминаем, где началась
            End If
            
            ' --- Проверка: является ли эта ячейка КОНЦОМ? ---
            ' Условие 1: Это последняя ячейка в диапазоне?
            ' Условие 2: Следующая ячейка (если она есть)
            If (i = cols) Or (rowData.Cells(1, i + 1).Value <> checkValue) Then
                
                ' Вычисляем длину (сколько ячеек подряд подходило)
                Dim seriesLength As Long
                seriesLength = i - seriesStartCol + 1
                
                ' --- Формируем вывод в зависимости от длины ---
                If seriesLength = 1 Then
                    ' Если из одной ячейки - выводим только дату
                    result = result & " " & Format(dateRow.Cells(1, i).Value, "dd.mm.yyyy") & ";"
                Else
                    ' Если длинная - выводим интервал "С - ПО"
                    result = result & " " & Format(dateRow.Cells(1, seriesStartCol).Value, "dd.mm.yyyy")
                    result = result & " - " & Format(dateRow.Cells(1, i).Value, "dd.mm.yyyy") & ";"
                End If
                
                ' Сбрасываем флаг, чтобы начать поиск новой
                inSeries = False
                
            End If
            
        End If
    Next i

    ' --- Финальная обработка строки ---
    If Len(result) > 0 Then
        result = Trim(result) ' Убираем пробел в начале
        If Right(result, 1) = ";" Then
            result = Left(result, Len(result) - 1) ' Убираем точку с запятой в конце
        End If
    End If

    ProcessDates = result

End Function