Makro som printer vilkårlig antal sider

håber nogen kan hjælpe med at ændre denne makro så den kan have flere funktioner i en linie..? som den er nu så stopper min printer for hver sætning og tænker før næste betingelse udskrives.
ActiveWindow.SelectedSheets.PrintOut From:=10, To:=10, Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=11, To:=12, Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=14, To:=14, Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=22, To:=22, Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=23, To:=24, Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=27, To:=30, Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=32, To:=32, Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=36, To:=36, Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=39, To:=40, Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
   
' Tilbage til "Makro"-sheet
ActiveWorkbook.Sheets("MAKRO").Select