Macro is missing code to copy formulas as well as values

I just need to know how to add code the the following macro to make it copy and paste everything including the formulas. Right now it is not copying and pasting formulas. I appreciate the help!

Sub InsertMaintenance()
    Dim x As Long
    
    x = InputBox(Prompt:="Enter row number where you want to insert", _
          Title:="INSERT Maintenance", Default:="Enter Row Number")
    

    ActiveSheet.Unprotect Password:="password"

' InsertMaintenance Macro
' Insert a new maintenance employee onto timesheet
'

'
    Sheets("Instructions").Select
    Rows("213:219").Select
    Selection.Copy
    Sheets("40").Select
    Rows(x).EntireRow.Insert Shift:=xlDown
    ActiveSheet.Protect Password:="password"
End Sub

Maybe:

Sub AlanaL()
Dim x As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
x = InputBox(Prompt:="Enter row number where you want to insert", _
          Title:="INSERT Maintenance", Default:="Enter Row Number")
    

    ActiveSheet.Unprotect Password:="password"
 
' InsertMaintenance Macro
' Insert a new maintenance employee onto timesheet
'

'
    
Sheets("Instructions").Rows("213:219").Copy
Sheets("40").Rows(x).Resize(6).Insert xlDown


    ActiveSheet.Protect Password:="password"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub