Szerintem neked ezzel a sorral lesz bajod, mert nem Munka1 a lap neve.

With ActiveWorkbook.Worksheets("Munka1").Sort

Most nem vagyok gépközelben, de szerintem így menni kell, ha lecseréled erre:

With ActiveWorkbook.ActiveSheet.Sort

Ha mégsem, akkor a Munka1 szöveget írd át a munkalap nevére.