[nikosjc]

Το βρήκα μάλλον παιδιά!

Rows("2:2").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=6, Criteria1:="o"
    Application.DisplayAlerts = False
    ActiveSheet.UsedRange.Offset(2, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1, 1). _
            SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Application.DisplayAlerts = True

Λογικά θέλει το SpecialCells για να επιλέξει κ να διαγράψει μόνο τις φιλτραρισμένες γραμμές...