Developing.ru

Привет!
Не очень разбираясь в Excel сердечно прошу помочь.
Есть прайс сформированный программой с заголовками и пустыми столбцами. Нужно регулярно получать из него файл csv с разделителями запятыми, удалив пустые с толбцы. Возможно ли автоматизировать этот процесс (при помощи макроса или надстройки)?
В прикрепленном файле этот прайс, помогите пожалуйста!
Большое Вам спасибо за внимание!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Записал макрос действий. В результате всё удаляется.. Посмотрите что не так пожалуйста
' Макрос2 Макрос
'

'
Columns("C:C").Select
Range("C1097").Activate
Selection.Delete Shift:=xlToLeft
Columns("I:I").Select
Range("I1097").Activate
Selection.Delete Shift:=xlToLeft
Rows("1:4").Select
Range("A4").Activate
Selection.Delete Shift:=xlUp
Range("H8").Select
Cells.Replace What:=";", Replacement:="*", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=",", Replacement:="*", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Ermitag\Рабочий стол\для дома\Новая папка\экспорт1.csv" _
, FileFormat:=xlCSV, CreateBackup:=False
End Sub