Bom dia.
geralmente abro tópicso e tenho e eu emsmo respodno pois memso solicitando vossa ajuda, vou tentando resolver.
Mas este vou precisar de quem entende d o assunto.
qual o contrario de if not blablabla is nothing ?
pois preciso q apos o msgbox ele encerre a rotina. 'ELSE CONTINUE
( Se procurar resultado1 e existir encerrar caso contrario continue)

With aba.Cells
Set procu = .Find(What:=resultado1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not procu Is Nothing Then
MsgBox ("NF já cadastrada" & aba.Name) ' ENCERRAR CASO CONTRARIO CONTINUAR...
End If

End With
Next
End With

Sheets(boxplanilhas.Value).Activate
Range("A2").Select

Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = resultado1
ActiveCell.Offset(0, 1).Value = boxcliente.Value