Macro runs Slowly

Tweaked...

Sub InsertRowS4()

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