Hi

Add these lines before you save the workbook as CSV.

Code:
On Error Resume Next
wbkNew.Sheets(1).Columns(1).SpecialCells(4).EntireRow.Delete
On Error GoTo 0