Pages to Tabs

[Pattatatat]

I have an excel file that is multiple pages on one tab.
It would make sense to have each of these pages as separate tabs.
Other than copy and paste, which would be the obvious, is there a more simple way to separate pages on a single tabs into individual tabs for each page.

 

[friel300]

~You could try this little Macro.

Sub Macro1()Dim ACT As Worksheet
Set ACT = ActiveSheet


    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ACT.Activate
    
End Sub

just select the cells you want to move to a new sheet and run.