Save Excel sheet in CSV format

[AroDigit]

Hi,

I am new with VBA and need your help for a script to transform a sheet to CSV files. This file will be an input for a query.

The starting sheet has lot of text cells with empty columns and rows between them, without pattern.
I need to do the following:
-Copy the original sheet and work on the renamed copy
-Remove all cells with bold font text (these are titles)
-Create a new sheet
-Transform the table to 1 column in the new sheet (no order required)
-Remove empty rows
-Save as CSV files with 2950 rows maximum each, with same name+number

I did the beginning with macro:

Please Login or Register  to view this content.

I have read the Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select should not be used but I don't know what to use instead.

Could you help me for that. I'll write a second thread to perform the population of the original file with the answer.
Many thanks

[ranman256]

ActiveWorkbook.SaveAs pathName , xlCSV

[AroDigit]

Thanks ranman256

This is for the last step, but what about Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select?
Do you think I can use it?
Do you have a good script example to transform 1 table to 1 column?