In addition, if you're trying to repeat this sub for other data in the same sheet you may have noticed that the AutoFilter was still on for the initial range of cells selected. You should append

   ActiveSheet.AutoFilterMode = False
in the next line after "End With" in my sub so that when you re-run it for another Range of cells it'll work properly.