Sub Test_Filter()
Dim i As Long
Dim VisRng As Range
Dim Myval As Long
Dim lrow As Long
'' set filter ''
lrow = Sheets("Sheet1").Range("B65536").End(xlUp).Row '' rename to your sheet
Sheets("Before").Range("A1:f1").Select
        Selection.AutoFilter
        With Selection
            .AutoFilter Field:=2, Criteria1:="fitness"  '' this set the filtered data for the value
        End With
            With Worksheets("Before").AutoFilter.Range
                Set VisRng = .Resize(.Rows.Count - 1, 1).Offset(1, 0) _
                    .Cells.SpecialCells(xlCellTypeVisible)
            '' make sure you have more than 1 row  ''
                Myval = .Range("B2:B" & lrow).SpecialCells(xlCellTypeVisible).Count
                If Myval >= "2" Then
                    Range(Cells(VisRng.Offset(, 0).Row, 1), Cells(Range("B65536").End(xlUp).Row, 8)).EntireRow.Delete
                End If
            End With

        Selection.AutoFilter
End Sub