Macro runs Slowly

Hi

I've just tweaked dangelor's code a bit and I think it gives you what you are chasing.

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

rylo

Hi Rylo

Thanks for the code. Is is certainly faster. Just one hurdle to cross. The Data Input - Sheet is fully protected but permits
data entry only in specific range. The new rows which are created are locked. My earlier macro did have not this issue.
Maybe when the formula copies, it should copy the formats as well and this could help,
Can you tweak the code?

Thanks