I'm using this to record an event;
Sub ErrorAUDIT(Evnt As String)
Application.ScreenUpdating = False
Set ws = Worksheets("Audit")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = Now
ws.Cells(iRow, 2).Value = Evnt
ws.Cells(iRow, 3).Value = evnt2
ws.Cells(iRow...