i had this sub created and attached it to a button within my spreadsheet

Sub Shuffle()
'
' Shuffle Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
    Sheets("calc").Range("J2:J53").Value = Sheets("calc").Range("E2:E53").Value
    

        
    End Sub
this worked perfectly. however i found a need that i wanted to expand upon the same button to move a similar set of data and i used this code:

Sub Shuffle()
'
' Shuffle Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
    Sheets("calc").Range("J2:J53").Value = Sheets("calc").Range("E2:E53").Value
    
    Sheets("Players").Range("e2:e7").Value = Sheets("tablecalc").Range("n2:n7").Value
        
    End Sub
however it does not work. the data in range e2:e7 will disappear and not paste into the n2:n7 range. i am very new to VBA and so im curious as to what may be the issue with this? is it just formatting or is there a deeper issue i am not understanding. thank you for any help.

to clarify: i want to move both sets of data with one press of a button