Hi all
I was recently given the below code which seemed to work correctly, but unfortunately it does not stop when it comes to the field "lost clients". It carries on rather than stepping to the next piece of code. I have tried multiple times to fix this myself, but as usual failed. All help appreciated.
Thank you
Sheets("exempt final").Select
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
If Cells(i, 1).Value = "LOST CLIENTS" Then
' End If
Else
If Cells(i, 3).Value <> "" Then
' Do Nothing
Else
Cells(i, 3).Value = Cells(i - 1, 3).Value
End If
End If
Next i
Bookmarks