Sub Function1()
         On Error GoTo fixer
         Sheets(ActiveSheet.Index + 1).Select
    fixer:
         Call Copier2

End Sub

Sub Copier2()
    ActiveWorkbook.ActiveSheet.Copy _
       After:=ActiveWorkbook.ActiveSheet
End Sub