Macro runs Slowly

Try...

Sub InsertRowS3()

    With Worksheets("Data Input -Unit Leaders")
        .Activate
        .Unprotect Password:="team"
        With .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow
            .Cells.Locked = False
            .Copy
        End With
        .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