menšie úpravy:
- zrýchlenie činnosti
- vytvára kópie aktuálneho hárka
- ukážka pridelenia vlastného názvu kópiám hárka

Sub Copier2()
    Application.ScreenUpdating = False
    x = InputBox("Enter number of times to copy Active Sheet")
    SheetName = ActiveSheet.Name
    For i = 1 To x
        ActiveSheet.Copy After:=ActiveSheet
        ActiveSheet.Name = SheetName & " - " & i
    Next i
End Sub