Option Explicit
'This macro is designed to count the # of occurences in Col A. To change for a different column,
'every instance referencing Col A should be edited to reference the new column.
Sub Special_Countif()
Dim i, LastRowA, LastRowB
LastRowA = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Columns("B:C").ClearContents
    For i = 1 To LastRowA
        If Application.CountIf(Range("B:B"), Cells(i, "A")) = 0 Then
            Cells(i, "B").Offset(1, 0).Value = Cells(i, "A").Value
        End If
    Next
        Columns("B:B").Select
        Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        LastRowB = Range("B" & Rows.Count).End(xlUp).Row
        For i = 2 To LastRowB
        Cells(i, "C").Value = Application.CountIf(Range("A:A"), Cells(i, "B"))
    Next i
    Range("B1").Value = "Entry"
    Range("C1").Value = "Occurrences"
    Range("B1:C1").HorizontalAlignment = xlCenter
    Range("B1").Select
    Columns("B:C").AutoFit
    Application.EnableEvents = True
End Sub