This VBa does what you want.
Remember to take a back up fo the file first, there is no undo function
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
How do I add VBA in MS Office?
And a screen shot of what it looks like after the VBa is executed