Keep it simple:

Sub M_snb()
   sheet1.usedrange.columns(1).offset(1).advancedfilter 2,,sheet1.cells(1,20),true
   sn=sheet1.columns(20).specialcells(2)
   sheet1.columns(20).clearcontents

   for each it in sn
     sheets.add(,sheets(sheets.count)).name=it
   next
End Sub