Hi everyone,

I'm trying to run the below code, but run into the title error, highlighting "xlUp" in the third line. When I replace Potato2 with LastRow and a with i for the variables, the code runs fine. I'm not very knowledgeable about variables, so any advice with those would be great. Thanks!

    Dim Potato2 As Long
    Dim a As Long
    LastRow = Range("B" & Rows.Count).End(xlUp).Row
    For a = 2 To Potato2
        If Range("B" & a).Value = "PSY TRANSPLANT SW" Or Range("B" & a).Value = "TRANSPLANT SURGERY" Then
            Range("A" & a).Value = "SURGERY, TRANSPLANT"
        End If
        If Range("B" & a).Value = "FOOT CARE SPECIALISTS" Or Range("B" & a).Value = "PODIATRY SHAPIRO" Then
            Range("A" & a).Value = "SURGERY, PODIATRY"
        End If
        If Range("B" & a).Value = "PEDI SURGERY" Then
            Range("A" & a).Value = "SURGERY, PEDIATRIC"
        End If
        If Range("B" & a).Value = "VASCULAR SURGERY" Then
            Range("A" & a).Value = "SURGERY, VASCULAR"
        End If
        If Range("B" & a).Value = "WEIGHT LOSS SURGERY - PRESTON" Or Range("B" & a).Value = "WEIGHT LOSS SURGERY - SHAPIRO" Then
            Range("A" & a).Value = "SURGERY, WEIGHT LOSS"
        End If
        If Range("B" & a).Value = "BELKIN BREAST CTR - SURGERY" Then
            Range("A" & a).Value = "SURGERY, BELKIN BREAST"
        End If
        If Range("B" & a).Value = "MULTI SPECIALTIES SURGERY" Or Range("B" & a).Value = "SURGERY ENDOCRINE" Or Range("B" & a).Value = "SURGICAL PRACTICE" Then
            Range("A" & a).Value = "SURGERY, GENERAL"
        End If
        If Range("B" & a).Value = "SURG ONC DERM" Then
            Range("A" & a).Value = "SURGERY, ONCOLOGY"
        End If
        If Range("B" & a).Value = "CTR FOR DIGESTIVE DISORDERS SUR" Then
            Range("A" & a).Value = "SURGERY, COLORECTAL"
        End If
        If Range("B" & a).Value = "CLINICAL NUTRITION" Or Range("B" & a).Value = "DIABETES" Or Range("B" & a).Value = "ENDOCRINOLOGY" Or Range("B" & a).Value = "PSY NUTRITION" Then
            Range("A" & a).Value = "MED-ENDO/DIAB/NUTR"
        End If
        If Range("B" & a).Value = "HEMATOLOGY" Or Range("B" & a).Value = "MULTI SPECIALTIES AMYLOID" Or Range("B" & a).Value = "MULTI SPECIALTIES HEMATOLOGY" Or Range("B" & a).Value = "PSY HEM ONC AMYLOID" Then
            Range("A" & a).Value = "MED-HEMATOLOGY"
        End If
        If Range("B" & a).Value = "ONCOLOGY" Then
            Range("A" & a).Value = "MED-ONCOLOGY"
        End If
    Next a
End Sub