Can anyone help, I keep getting an error.
Run-time error '13': Type mismatch
when I debug it highlights the below line;
'ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value + 1'
Worksheets("report").Activate
Range("d5").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value...