Macro to Delete rows from row 2 where there is a zero in Col B and C in folder C:\Journal uploads

[howard]

I have the following code below to format and sort CSV files in a folder

I need the code amended to delete rows in Col B and C where the row contains a zero

Sub OpenAndModifyCSVFiles()
    Application.ScreenUpdating = False
    Dim strFile As String
    Dim strFileType As String
    Dim strPath As String
    Dim lngLoop As Long
   


    strPath = "C:\Journal Uploads"
    strFileType = "*.csv" 'Split with semi-colon if you want to specify the file types. Example ->> "*.xls;*.jpeg;*.doc;*.gif"
     
     For lngLoop = LBound(Split(strFileType, ";")) To UBound(Split(strFileType, ";"))
        strFile = Dir(strPath & "\" & Split(strFileType, ";")(lngLoop))
        Do While strFile <> ""
            With Workbooks.Open(strPath & "\" & strFile)
                With .Sheets(1)
                    .Range("B2:D" & .UsedRange.Rows.Count).NumberFormat = "0.00"
                    .UsedRange.Sort Key1:=.Columns("A"), Order1:=1, Header:=1
                    
.Cells(1).Offset(.UsedRange.Rows.Count).Resize(50).EntireRow.Delete



                End With
                .Close 1
            End With
            strFile = Dir
        Loop
    Next lngLoop
    strFile = vbNullString
    strFileType = vbNullString
    strPath = vbNullString
    lngLoop = Empty
     
End Sub