How To Move Transfer Or Copy Data To A Protected Sheet

[bakerman]

        Sheets("Score").Unprotect "ABCD"
        Rng2 = d
        Rng2.Columns(1).NumberFormat = "m/d/yyyy"
        With Rng2.Resize(Rng2.Rows.Count + 2, Rng2.Columns.Count)
            .Rows.RowHeight = 30
        End With
        Sheets("Score").Protect "ABCD"