Macro buscar

Prueba esto:
Sub Cancelar()
Sheets("Hoja2").Select
Dim t As String
Dim r As Range
Dim p As Integer
Dim j As Long
Dim x As Long
t = InputBox("INGRESE EL NÚMERO DE ORDEN: ")
If Len(t) = 0 Then Exit Sub
If Application.WorksheetFunction.CountIf(Range("A:A"), t) = 0 Then
MsgBox "NO SE ENCONTRO LA ORDEN N° " & t, vbCritical
Sheets("Hoja1").Select
Exit Sub
End If
j = InputBox("DIGITE EL TIPO DE DOCUMENTO CON EL CUAL CANCELÓ")
x = InputBox("DIGITE EL NÚMERO DE DOCUMENTO CON EL CUAL CANCELÓ")
For Each r In Range("A1" & ":" & "A" & Application.WorksheetFunction.CountA(Range("A:A")))
If r = t Then
If r.Offset(0, 15) <> Empty Then
p = MsgBox("El registro a editar ya cuenta con informacion anterior - Desea sobreescribir el registro ?", vbCritical + vbYesNo, "Atencion")
If p = 6 Then
r.Offset(0, 15) = x
r.Offset(0, 14) = j
r.Offset(0, 13) = Date
Exit For
End If
End If
If p = 7 Then Exit For
r.Offset(0, 15) = x
r.Offset(0, 14) = j
r.Offset(0, 13) = Date
Exit For
End If
DoEvents
Next
Set r = Nothing
Sheets("Hoja1").Select
End Sub
No olvides CERRAR la pregunta

Hola experto, la macro ya no me está copiando los datos en todas las filas que tienen el numero buscado, solo en la primera. Pero en cuanto al mensaje es perfectamente lo que necesito. Saludos y de antemano muchas gracias