Clear certain cells

[JOEE1979]

Hello everyone

UNIT	Mechanic	W/O #	Activity	Classification	Status
1212	Anthony Ayou	4525	boot	BDN	On Hold
1236	joan	52455	engine	8646	Completed
2122	jim	6545	4141	5151	On Hold
4152	Bratish Panjara	482585	56446	Running Repair	TSS

I'm stumped,
At the end of the day I would like to clear the contents of the line that has "completed" in the last column. and I would like for the table to auto sort.
The "status" column is a drop down if that makes a difference.
Keep in mind this part of my report is 74 lines long.
This spreadsheet has more columns and rows beside and under what you see, (so I do not want to delete rows for those reasons).
I need help please and thank you.

 

[JOEE1979]

So I got the formula, but now I need to modify it a bit. If I want one of 2 values "Completed" or "Tripped"

How would I write that?


Sub Repairs()
'create loop through column F (assuming that's where the Status col. is)
Dim c As Range
For Each c In Range("F475:F507")
If c.Value = "Completed" Then
'will clear the active row's columns A through F
Range(Cells(c.Row, 1), Cells(c.Row, 6)).ClearContents
End If
Next c