I am using the macro below, where would I insert the unprotect and protect
statement for the sheet "Transactions", the latter is protected.


sub CopyStatement()

Dim LastRow As Long


CopyStatementMsg = MsgBox("Are you sure you want to Copy Statement to
Transactions Sheet?", vbYesNo + vbDefaultButton2)

If CopyStatementMsg = vbNo Then End

Application.ScreenUpdating = False

ActiveSheet.Unprotect


ActiveSheet.UsedRange
LastRow = Cells.SpecialCells(xlLastCell).Row
LastRow = Cells(Cells.Rows.Count, "W").End(xlUp).Row
ActiveSheet.Range("$S$5:$W" & LastRow).Copy
Sheets("Transactions").Range("A13").PasteSpecial Paste:=xlValues
ActiveSheet.Protect

Sheets("Transactions").Activate
Range("F13").Select


Application.ScreenUpdating = True


End Sub