Question regarding multiple vba based drop down lists in worksheet

Hello,

I would like to have a name drop down list in column A and another list for various scheduling items in a range from B to AF. Using the code below I can get one, but not the other to work as they conflict with one another.
Any assistance would be appreciated!

With ws
    .Cells.Validation.Delete
LR = .Cells(Rows.Count, 1).End(xlUp).Row
    For intCol = Columns("B").Column To Columns("AF").Column
        If .Cells(1, intCol).Value = "" Then
            With .Range(.Cells(3, intCol), .Cells(LR, intCol)).Validation
                .Delete
                .Add xlValidateList, xlValidAlertStop, xlBetween, "DO,XX,V,7V,6V,5V,4V,3V,2V,1V,C,7C,6C,5C,4C,3C,2C,1C,S,4S,TR,4TR,PL,4PL,SW,4SW,CT,TF,SUS,S,7S,6S,5S,4S,3S,2S,1S,WC,NP"
            End With
        End If
    Next intCol
End With
With ws
    .Cells.Validation.Delete
LR = .Cells(Rows.Count, 1).End(xlUp).Row
    For intCol = Columns("a").Column To Columns("A").Column
        If .Cells(1, intCol).Value = "" Then
            With .Range(.Cells(3, intCol), .Cells(LR, intCol)).Validation
                .Delete
                .Add xlValidateList, xlValidAlertStop, xlBetween, "name1,name2,name3,name4,etc"
            End With
        End If
    Next intCol
End With
End Sub

Here's what I got:

    

    Set ws = ActiveSheet
    
    'Find last used row
    LR = ws.Cells(Rows.Count, 1).End(xlUp).Row
    
    'Clear validation in all cells
    ws.Cells.Validation.Delete

    'Set validation for column "A"
     With ws.Range("A:A").Validation
     
        .Delete
        .Add xlValidateList, xlValidAlertStop, xlBetween, "name1,name2,name3,name4,etc..."
            
    End With

    'Set validation for Colums "B" to "AF"
     With ws.Columns("B:AF").Validation
     
        .Delete
        .Add xlValidateList, xlValidAlertStop, xlBetween, "DO,XX,V,7V,6V,5V,4V,3V,2V,1V,C,7C,6C,5C,4C,3C,2C,1C,S,4S,TR,4TR,PL,4PL,SW,4SW,CT,TF,SUS,S,7S,6S,5S,4S,3S,2S,1S,WC,NP"
            
    End With

Hope this helps!