Macro runs Slowly

Not tested, but this should be very quick...

Sub InsertRowS1()
    
    With Worksheets("Data Input -Unit Leaders")
        .Activate
        .Unprotect Password:="team"
        .Cells(.Rows.Count, 1).End(xlUp).Offset(2, 0).EntireRow.Copy
        .Cells(.Rows.Count, 1).End(xlUp).Offset(-1, 0).EntireRow.Resize(250).Insert shift:=xlDown
        .Protect Password:="team"
    End With
    
    With Worksheets("Ranking - Unit Leaders")
        .Activate
        .Unprotect Password:="team"
        .Cells(.Rows.Count, 1).End(xlUp).Offset(-2, 0).EntireRow.Copy
        .Cells(.Rows.Count, 1).End(xlUp).Offset(-1, 0).EntireRow.Resize(250).Insert shift:=xlDown
        .Protect Password:="team"
    End With

End Sub

Hi Dangleor

Thanks for your input but the code you are suggesting are only inserting rows and does not copy forumuals.
Please refer to my original code, the macro is inserting and copying formulas only. This it does to both my sheets.
The macro is absolutely fine but i need a code to speed it up.
Thanks