Macro - Insert new row in table but copy selected cells from previous row

Here is my code:

Sub CopyRow()

Dim ws As Worksheet
Set ws = Sheets("ERROR REPORT")
Const strTableName As String = "Table2"

Dim Tbl As ListObject
Dim NewRow As ListRow

With ws
    .Unprotect ("mdqc")
    ActiveWorkbook.Unprotect Password:=("mdqc")
    Set Tbl = .Range(strTableName).ListObject
    With Tbl
        Set NewRow = .ListRows.Add(AlwaysInsert:=True)
        .DataBodyRange.Locked = True
        NewRow.Range.Locked = False
        NewRow.Range(1, 1) = Date
    End With
    .Protect ("mdqc"), AllowFiltering:=True
    ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:=("mdqc")
    
End With
End Sub

Everything works great, it currently inserts a new blank row each time. But now looking to copy the previous cell from column B,D and E with the option to overwrite the data if necessary. All this will do is save some input time for the end user.

Side note, when we insert a new row, we have it configured that it locks all the previous rows of data to prevent data changes. ( .DataBodyRange.Locked = True)

Is this possible?

Much appreciated,

Jon

You addressed my issue, just altered the logic slightly, instead of (-1, 2) etc. I changed it to (0, 2) as every second row inserted would copy the alternate row behind the last one. Thank you so much. I also added Reputation!