Boa noite!!

Tente assim...

Sub AleVBA_9920()
Dim Rng As Range, Cell As Range
Set Rng = Range(Range("I3"), Range("I" & Rows.Count).End(xlUp))
For Each Cell In Rng
    If Cell = [D2].Value Then
        Cell.EntireRow.Delete
    End If
Next Cell
End Sub

Att

Meu caro alexandrevba, esqueci de informar que é apenas os valores da linha dentro do intervalo informado e não a linha em si. Minhas desculpas pelo ato falho.

Boa noite!!

Tente

Sub AleVBA_9920_V2()
    Dim RowNum As Long
    RowNum = [D2].Value
    Range(Cells(RowNum, 1), Cells(RowNum, 110)).Delete Shift:=xlUp
End Sub

Att

Boa noite
alexandrevba, temos um probleminha: conforme informado acima cometi um engano ao relatar o que de fato a macro tem de fazer. Então peço a gentileza de fazer a correção.
grato

Boa noite!!

Perdão mas, eu não entendi, monte um exemplo....

Att

Outra abordagem.

Abs,

Boa noite!!
Veja se é isso.........

Sub AleVBA_9920V4()
Dim Rng As Range, Cell As Range
Set Rng = Range(Range("I3"), Range("I" & Rows.Count).End(xlUp))
For Each Cell In Rng
    If Cell = [D2].Value Then
        Cell.EntireRow.ClearContents
    End If
Next Cell
End Sub

Att

Opa, problema resolvido. Mandrix e alexandre, meus agradecimentos pela solução.

Boa noite!!

hufa! depois de muito tempo que fui perceber o que você queria

Até a próxima!!!

Att

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.