Sub test()
Dim crit&, fin&
fin = [A65536].End(3).Row
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 5), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9)), _
TrailingMinusNumbers:=True
crit = Application.Max(Range("B1:B" & fin))
ActiveSheet.Range("B1:B" & fin).AutoFilter 1, "<" & crit, xlAnd
Selection.EntireRow.Delete
Columns(2).Delete
End Sub