Как проверить наличие дубликатов, выделить дубликаты и подсчитать выделенные дубликаты в одном столбце?

Question

Я хочу выделить и посчитать количество дубликатов в одном объединенном столбце.

У меня сейчас два отдельных сабвуфера, и сказать особо нечего, проблема не такая уж сложная, я в этом уверен, но я работал над этим в течение нескольких дней, абсолютно прогресс. Это должно быть сделано в VBA, и он не может выделить пустые ячейки в столбце. Конкатенации выполняются по формуле в рабочей книге. Пожалуйста, помогите мне, я умираю,

Sub Duplicate_Check()

    Dim ws As Worksheet

    Set ws = Sheet1

     Worksheets("Master Checklist").Activate

        Columns("H:H").Select
        Selection.FormatConditions.AddUniqueValues
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).DupeUnique = xlDuplicate
        With Selection.FormatConditions(1).Interior
            .ColorIndex = 40
            .TintAndShade = 0
        End With
    'Sheet2.Range(“L2").Value = Application.WorksheetFunction.Countif(Columns("H:H")), cell.Font.Color = "-16383844")
    'Range(“B10?).Value = Application.WorksheetFunction.Countif(Range(“A2:A8?), “>” & 50
   End Sub

   Sub CountDupes()
     Dim countofDupes As Long
     Dim rng As Range
     Dim myCell As Range
    countofDupes = 0
    Set rng = Range("H2").End(xlDown)
    For Each myCell In rng
    If myCell.Interior.ColorIndex = 40 Then
    countofDupes = countofDupes + 1
    Debug.Print countofDupes
    End If
    Next myCell

     End Sub

Я не сталкиваюсь с сообщениями об ошибках, но если я Debug.Print countofDupes, я ничего не получаю, что явно не то, что я хочу. Любой совет?