Sub Очистка()
'
' Очистка Макрос
'

'
' удалить шапку

'   Rows("1:6").Select
'   Selection.Delete Shift:=xlUp

' разделить ячейки

    ActiveSheet.Cells.UnMerge

' сохранить с новым именем

    Dim Path As String
    Dim filename As String
    Path = ""C:\Users\\Desktop\data_processed\2016\"
    filename = Range("A1")
    ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal


End Sub