Need to add the cut function in the macro

Hi,

By cut do you really mean that you want to delete the rows or merely the contents of the cells?
In which case then untested without the workbook

If so then either

Sheets("Commence").Range("A" & i)..EntireRow.Delete

or

Sheets("Commence").Range("A" & i).Clear