A few qualifiers are missing I think.
I don't think ActiveSheet = Sheets("Model") does anything.
Are you trying to activate the 'Model' sheet? If so, use
Sheets("Model").Activate
The With statement is not being used here. Should all Cells and Range refer to Sheets("Model")? If so...
Dim LastRow As Long, cell As Range
'ActiveSheet = Sheets("Model") '- doesn't seem to be needed
With Sheets("Model")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
For Each cell In .Range("A2:A" & LastRow)
If cell.Offset(0, 1).Value = "" Then cell.Offset(0, 2).Value = ""
Next
End With
Bookmarks