Sub Clear_Filter_Rows()
With ActiveSheet
.UsedRange.AutoFilter Field:=2, Criteria1:="GRACE GARMENT LIMITED" ' change Field of filtered and Criteria as per yours
lastRow = .Range("B" & Rows.Count).End(xlUp).Row 'change field column
.Range(.Range("B2"), .Range("B" & lastRow)). _
SpecialCells(xlCellTypeVisible).EntireRow.ClearContents
End With
End Sub