Macro runs Slowly

Hi Dangelor,

I used the above code but it groups the newly inserted rows since the row where it copies the formula is grouped.
This cannot be ungrouped by the user as the worksheet is protected.
Please refer to the original file I have attached and the macro does not group the new insertion .

Appreciate if you can tweak it.

Thanks

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