Macro Excel: disunire una cella unita

'unmerge the first cell
    Range("A1:J1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.UnMerge

Con questo codice invece si seleziona una cella unita (in questo caso la A1:J1) e la si disunisce. Tante di quelle proprietà servono solo a mantenere il testo all'interno e a formattarlo per la visualizzazione a sinistra.