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
Hi,
This will not delete my blank rows in first row right? i want them as blank only since my first rwo of csv will hold table name. and second row will have all column name and 3rd row will have data.
This will not delete my blank rows in first row right? i want them as blank only since my first rwo of csv will hold table name. and second row will have all column name and 3rd row will have data.
Regards
Dhivya
The code would delete all those rows where there is no data in Column A.
Bookmarks