Utilizando CurrentRegion quando A4 tem valor, essa linha passa a ser considerada como parte da range.
Para verificar Utilize o comando Range("A5").CurrentRegion.Select, sem valor na linha 4 e depois com valor nessa linha
Se precisar de valores nalinha 4 utilize o advancefilter +/- assim:
Range("A5:K53").AdvancedFilter _
Action:=xlFilterInPlace, CriteriaRange:=rng1, Unique:=False

Como vai ter mais de 53 linhas, fiz assim e funcionou

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False


Dim rng As Range
Dim rng1 As Range
Dim Cell As Range

'--- Variavel ---


Dim UltL As Long
    
    UltL = Sheets("Plan1").Cells(Rows.Count).End(xlDown).Row

Set rng = Range("C3:F3")
Set rng1 = Range("C2:F3")

For Each Cell In rng

    If Target.Address = Cell.Address Then

        Application.EnableEvents = False
        
        Rows(5 & ":" & UltL).AdvancedFilter _
              Action:=xlFilterInPlace, CriteriaRange:=rng1, Unique:=False
    
        Application.EnableEvents = True
    
    End If

Next Cell

Application.ScreenUpdating = True


End Sub

Reinaldo, como fazer a busca retornar palavras que não estão exato pelo fato dos acentos ?

Ex: Sem tem pé e digitar pe, não busca
Dênis e Denis e assim vai

Obrigado !

Diretamente não, será preciso montar/idealizar uma rotina de substituição e procura.