Review Macro Needed

[ryanb4614]

If I have this formula:
<code>

Sub dogsaver()
Dim lastrow As Long
Dim rowcount As Long
With Sheet1
lastrow = .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For rowcount = 2 To lastrow
If .Cells(rowcount, 4).Value Like "*T-SHIRT*" Then
Else
.Cells(rowcount, 4).ClearContents
End If
Next rowcount
End With
End Sub

</code>
This will remove everything except t-shirts. it clears the cells that does not contain T-Shirt. How can I reverse this and find Jeans and clear all the cells completely that contain that word. Unless there is another way besides using the macro