Sub тест()
    Dim количествоСтрок As Integer
    Dim количествоБукв As Integer
    Dim буква As String
    Dim i As Integer
    Dim видимаяСтрока As Range

    ' Укажите ваш диапазон строк, начиная с A2
    количествоСтрок = 1
    For Each видимаяСтрока In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    количествоСтрок = количествоСтрок + 1
    Next видимаяСтрока

    ' Проверка на случай, когда количество видимых строк равно 1
    If количествоСтрок = 1 Then
        Range("H2").Value = "A"
        Exit Sub
    End If

    ' Деление на 3 и округление вверх
    количествоБукв = Application.WorksheetFunction.RoundUp(количествоСтрок / 3, 0)

    ' Проставление букв по видимым строкам столбца H
    i = 1
    For Each видимаяСтрока In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
        If i <= количествоБукв Then
            буква = "A"
        ElseIf i <= 2 * количествоБукв Then
            буква = "B"
        Else
            буква = "C"
        End If
        видимаяСтрока.Offset(0, 7).Value = буква ' смещение на 7 столбцов вправо
        i = i + 1
    Next видимаяСтрока
End Sub