Boa noite!!!

Teria que usar um filtro em VBA, e depois uma formula "Se"....

Poderia postar sua planilha...

Exemplo não adaptado.

Sub Filtrar()
'Faz a filtragem do nº de registro
    Sheets("Base").Select
    Dim myNºdeRegistro
    myNºdeRegistro = ActiveCell.Value
    Range("m1:m7700").Select

    If myNºdeRegistro = "" Then
        Selection.AutoFilter
        Range("R1").Select
    Else
        Selection.AutoFilter Field:=1, Criteria1:="=" & myNºdeRegistro, Operator:=xlAnd
        ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
        Range("T1").Select

    End If
End Sub

Att..

Uma outra sugestão, lembrando que os dados na Coluna "C" em C1 temos o Cabeçalho, para evitar erro na Filtragem :

Aba "Principal"
Em A1 Defina o Nome : Criterios e em Refere-se a: coloque a formula: =Principal!$A$1:$A$1

Em C1 Defina o Nome : Banco_de_Dados e em Refere-se a: coloque a formula: =DESLOC(Principal!$C$1;0;0;CONT.VALORES(Principal!$C:$C);1)

No Evento Change da Aba Principal coloque a Rotina:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsDados As Worksheet
    Set wsDados = Worksheets("Principal")
  
    If Target.Address = "$A$1" And Target.Value <> "" Then
        'Aplica o Filtro
        wsDados.Range("C2").AutoFilter field:=1, Criteria1:=Range("A1"), VisibleDropDown:=False
    
    Else
        
        On Error Resume Next
        'Limpa o Filtro
        wsDados.ShowAllData

    End If

End Sub

[]s