Sub Экспорт()
'
' Экспорт Макрос
' Макрос записан 17.09.2008 (alex)
'

'
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-5],"";"",RC[-1])"
    Selection.Copy
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ActiveSheet.Paste
    Columns("F:F").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Rows("1:5").Select
    'Range("A5").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Columns("A:E").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    ActiveWorkbook.SaveAs Filename:="C:\DOMINO\1.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
    ActiveWindow.Close
End Sub

  ActiveWorkbook.SaveAs Filename:="C:\DOMINO\1.csv", FileFormat:=xlCSV, _
        CreateBackup:=False