Range.Cut Paste on NewSheet

Hi Gang,

No surprise I am having a moment here. I am trying to cut some data & paste it on a new sheet. I am doing that successfully.
I would like your help with doing it in a few less lines/steps. Heres myCode:

Sub TempNote_New()
'////////////////////////////////
Dim FunLastRow As Long, rng As Range
    Set rng = ActiveSheet.Cells 
        FunLastRow = Last(1, rng) 
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Dim Block As Range
Set Block = Intersect(Range("N:P"), Range("1:" & FunLastRow))
    With Block.Interior
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
    
Range("N1:P1").Interior.Color = 5296274
    
    Block.Cut
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    [A1].FormulaR1C1 = "Blah ..."

    Sheets("Old").Select 'How could I get mySheet back to the foreground; "Without".Select/.Activate?
                        Set rng = Nothing: Set Block = Nothing
End Sub

I added one comment in there I would like to also know how I can get back to mySheet "Old". If I cant, & thats what I gotta do; thats fine Im over it already.

TIA