Macro que me permita encontrar uno o más valores insertados a lo largo de una columna

Quisiera saber si es posible elaborar una macro que me permita encontrar uno o más valores insertados a lo largo de una columna (toda la columna "BS") comparados con otra columna (BD. PLACA). Si encontrara un valor o más los selecciona individualmente y me sale un msg. Box que diga: "Se encontraron "N" (la cantidad) registros" y si no encuentra ninguno: "No se han encontrado registros".

Actualmente tengo una macro que solo me permite buscar un valor(en una columna especifica) ingresado en una celda y me selecciona el valor si lo encuentra, pero cuando tengo varias consultas por hacer se me hace extenso el trabajo.

Sub BUSCAR()
Dim celda As Range

    Application.Goto Reference:="BD.PLACA"
    Set celda = Selection.Find(What:=Range("BS4").Value, After:=ActiveCell, LookIn:=xlFormulas _
        , lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    If not celda is nothing then
        Celda.Select
    else
        msgbox "No se han encontrado registros"

    End if

End Sub

Estaría muy agradecido de que pudieran ayudarme.