Loop not working properly - code included - help?

Hello,
I have the following but of VBA code as a loop. For each loop (from rows 2 to 50) I want it to check whether the value in column U is 0 and if it is to just move straight to the next row/loop... if the data is not 0 I want it to run the rest of the code. However, it runs through 2 loops (the first has 0 in column U, the second doesn't) and then just stops... so I think I have something the wrong way round?

    Sheets("Info").Select
    
    For x = 2 To 50
    
    If Range("U" & x).Value = 0 Then

    Else
    
    Sheets("Info").Select
    
    C = Range("B" & x).Value
    D = Range("M" & x).Value
    
    Sheets("DATA").Select
    
    Selection.AutoFilter Field:=18, Criteria1:=C
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns("R:R").Select
    Selection.Delete Shift:=xlToLeft
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        D, FileFormat:= _
        xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    Application.DisplayAlerts = True
    
    ActiveWindow.Close
    
    Windows("Bulk Upload File.xlsm").Activate
    End If
    Next x
        
    
    End Sub

Does this work any better?

Dim wbNew As Workbook
Dim shInfo As Worksheet
Dim shData As Worksheet
Dim x As Long
Dim C As Variant
Dim D As String

    Set shInfo = Sheets("Info")

    Set shData = Sheets("Data")
    For x = 2 To 50

        If shInfo.Range("U" & x).Value <> 0 Then

            C = shInfo.Range("B" & x).Value
            D = shInfo.Range("M" & x).Value

            With shData("DATA")
                .UsedRange.AutoFilter Field:=18, Criteria1:=C
                .Range("A1", .Range("A1").End(xlDown).End(xlToRight)).SpecialCells(xlCellTypeVisible).Copy
            End With
            
            Set wbNew = Workbooks.Add
            With wbNew
                With .ActiveSheet
                    .Paste
                    Application.CutCopyMode = False
                    .Columns("R:R").Delete Shift:=xlToLeft
                End With

                Application.DisplayAlerts = False
                .SaveAs Filename:=D, FileFormat:=xlOpenXMLWorkbook
                Application.DisplayAlerts = True
                .Close
            End With

        End If
    Next x