Delete all columns if value in row 2 of that column is x?

I just made these two trying to use the union function but neither work

    Set Rng = Range("A2:" & Range("IV2").End(xlToLeft).Address(False, False))
    For y = Range("IV2").End(xlToLeft).Column To i Step -1
        If Cells(2, y).Value = "x" Then
            'Columns(y).Delete
            Set Rng = Union(Rng, Cells(2, y))
        End If
    Next y
    
    Rng.EntireColumn.Delete

    Set Rng = Range("A2:" & Range("IV2").End(xlToLeft).Address(False, False))
    FurthestRightColumn = Range("IV2").End(xlToLeft).Column
    For i = 1 To FurthestRightColumnStep
        If Cells(2, i).Value = "x" Then
            'Columns(FurthestRightColumn).Delete
            Set Rng = Union(Rng, Cells(2, i))
        End If
    Next i
    
    Rng.EntireColumn.Delete

However neither work correctly