Dim Wsh As Worksheet, TV(), L As Long, RngDel
Set Wsh = Worksheets("A")
TV = Intersect(Wsh.Columns(20), Wsh.UsedRange).Value
For L = 2 To UBound(TV, 1)
If Not TV(L, 1) Like "*MUAC*" Then
If RngDel Is Nothing Then
Set RngDel = Wsh.Rows(L)
Else
Set RngDel = Union(RngDel, Wsh.Rows(L))
End If
End If
Next L
If Not RngDel Is Nothing Then RngDel.Delete