"Persze ha valami miatt fontos a lapok sorrendje, akkor ez a megközelítés nem jó."

 

Feltételezem, hogy ha fontos is a lapok sorrendje, az nem az adatbevitel közben érdekes. Ezért el tudom képzelni, hogy elegendő a munkafüzetből való kilépéskor helyreállítani:

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.EnableEvents = False

    Application.ScreenUpdating = False

    ThisWorkbook.Worksheets("Munka1").Move before:=Worksheets(1)

    Application.ScreenUpdating = True

    Application.EnableEvents = True

End Sub