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