Buscar un valor en una columna

Buen dia expertos.

no se como adaptar el código que copia a continuación.

Private Sub CommandButton4_Click()
'Definición de variables
Dim rango As String
Dim valor As String
Dim resultado As Range
Dim primerResultado As String
Dim cont As Integer
'Solicitar información al usuario
valor = InputBox("Ingresa el EXPTE. A buscar:")
'Inicializar contador de coincidencias
cont = 0
'Primera búsqueda del valor dentro del rango
Set resultado = Range("B13:B" & [B65536].End(xlDown).Row).Find(What:=valor, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlDown, _
MatchCase:=False, _
SearchFormat:=False)
'Si el resultado de la búsqueda no es vacío
If Not resultado Is Nothing Then
primerResultado = resultado.Address
'Inicia bucle para hacer varias búsquedas
Do
cont = cont + 1
'Vuelve a buscar el valor
Set resultado = Range("B13:B" & [B65536].End(xlDown).Row).FindNext(resultado)
Loop While Not resultado Is Nothing And resultado.Address <> primerResultado
End If
'Muestra un cuadro de diálogo con el número de coincidencias
MsgBox "Se encontraron " & cont & " coincidencias."
End Sub

Este código lo que hace es abre un cuadro escribo el valor que quiero que me busque en un rango que es variable, pero no consigo que si el valor se repite mas de una vez se seleccione el ultimo valor encontrado.

desde ya muchas gracias

Saludos