Este VBa faz o que você quer.
Lembre-se de fazer um backup do arquivo primeiro, não há função de desfazer
Option Explicit
Sub EeekPirates()
Dim startRow As Integer
startRow = 2 'Ah hoy cap'ain, enter the startRow
Dim entryColumn As String
entryColumn = "C" 'Enter the entry column so we can place the gold...
Dim nameColumn As String
nameColumn = "B" 'Enter the name column so we know the sea dogs name
'aye aye cap'ain, we'll start now. Touch any of the below and we'll feed ye to the sharks
Dim realStartRow As Integer
realStartRow = startRow
Dim innerRow As Integer
innerRow = startRow
Do While (Range(nameColumn & startRow).Value <> "")
Dim count As Integer
count = 0
Dim name As String
name = Range(nameColumn & startRow).Value
Do While (innerRow - 1 < startRow)
If (Range(nameColumn & innerRow).Value = name) Then
count = count + 1
End If
innerRow = innerRow + 1
Loop
Range(entryColumn & startRow).Value = count
innerRow = realStartRow
startRow = startRow + 1
Loop
End Sub
Como eu adiciono o VBA no MS Office?
E uma captura de tela do que parece depois que o VBa é executado