Sub FilterMini()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "R").End(xlUp).Row
With Range("R2:R" & Lastrow)
.AutoFilter Field:=1, Criteria1:="Dad", Operator:=xlFilterValues
.SpecialCells(xlCellTypeVisible).Rows.Delete
End With
ActiveSheet.AutoFilterMode = False
End Sub