Boa tarde!!

Já tentou?

Sub AleVBA_11467()
'
With Sheets("TEMP")
For lLin = .Cells(.Rows.Count, "C").End(xlUp).Row To 2 Step -1
If .Cells(lLin, "C").Font.Bold <> "Quero Descontos" Then .Rows(lLin).Delete
'Veja o .Font.Bold acima
'Desafoga os processos pendentes do Windows a cada 100 linhas iteradas:
If lLin Mod 100 = 0 Then DoEvents
Next lLin
End With
End Sub

Usei o negrito apenas para evedenciar o termo.
tentei usar o script worksheets("PARAMETROS").Range("A5").Value e não funcionou. Não entendo o porque.
Na celula A5 eu tenho o valor Quero Descontos.

Boa Tarde!

Vamos supor que você está querendo substituir o texto em negrito (Quero Descontos) pelo valor que está na célula D6 da da Sheet chamada ("Plan4"). Você utilizaria o código abaixo:

With Sheets("TEMP")
For lLin = .Cells(.Rows.Count, "C").End(xlUp).Row To 2 Step -1
If .Cells(lLin, "C") <> Sheets("Plan4").Range ("D6").Value Then .Rows(lLin).Delete
'Desafoga os processos pendentes do Windows a cada 100 linhas iteradas:
If lLin Mod 100 = 0 Then DoEvents
Next lLin
End With