Macro buscar

Hola experto como hago una macro que me busque varios valores en una columna, y al frente de cada columna donde encuentre el valor ponga cierto mensaje?
tengo la siguiente macro, pero solo lo hace en un valor
Sub Buscar()
Dim rng As Range, msg As String
Dim fecha As String
With Columns("A:A")
Set rng = .Find( _
What:=InputBox("Introduce el Número de Tráfico: "), _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext)
End With
If Not rng Is Nothing Then
Range(rng.Address).Offset(0, 4) = InputBox("Introduce Nueva Fecha")
Range(rng.Address).Offset(0, 5) = Range(rng.Address).Offset(0, 4)
End If
End Sub