Help with Loop Without Do Error

[Coltaine]

Hi guys,

I've been trying to fix this VBA code (that a previous employee left us), but since I have no experience in VBA, I can't seem to figure it out. Would anyone of y'all be able to help me out?

Sub categorization3a()
 
Application.ScreenUpdating = False
 
'further segment [B]PRODUCT[/B]
 
row = 2
 
Do While Cells(row, 1) <> ""
 
For row = 3 To 800
    If Cells(row, 10) = “[B]PARENT PRODUCT[/B]" Then
        If InStr(1, Cells(row, 7), "[B]SUBPRODUCTCODE1A[/B]") Or InStr(1, Cells(row, 7), "") Or InStr(1, Cells(row, 7), "[B]SUBPRODUCTCODE1B[/B]") Or InStr(1, Cells(row, 7), "[B]SUBPRODUCTCODE1C[/B]") Then
            Cells(row, 10) = "[B]SUBPRODUCT1[/B]"
        ElseIf InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE2A[/B]") Or InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE2B[/B]") Or InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE2C[/B]") Or InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE2D[/B]") Or InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE2E[/B]") Or InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE2F[/B]") Then
            Cells(row, 10) = "[B] SUBPRODUCT2[/B]"
        ElseIf InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE3A[/B]") Or InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE3B[/B]") Or InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE3C[/B]") Then
            Cells(row, 10) = "[B] SUBPRODUCT3[/B]"
        ElseIf InStr(1, Cells(row, 7), "[B] SUBPRODUCTCODE4A[/B]") Then
            Cells(row, 10) = "[B] SUBPRODUCT4[/B]"
        Else
            Cells(row, 10) = "[B]PARENT PRODUCT[/B]"
        End If
    End If
 
    row = row + 1
   
Loop
 
           
Application.ScreenUpdating = True
 
 
 
End Sub

Thanks!!! I appreciate it a lot

 

[Coltaine]

Guys,

The issue was the "For row = 3 To 800" line. Thanks anyways!