現在のセルの文字の配置を把握して、文字揃えの位置を変更してみましょう。
＜HorizontalAlignmentプロパティ＞ 
HorizontalAlignmentプロパティを使用するとセルの左右方向の位置を取得、設定できます。

●使用例● 

　セルＡ１の文字の配置が、左詰めであれば中央揃えに中央揃えであれば右詰めに、
　右詰めであれば左詰めに変更します。

Sub セルの文字の配置変更() 

    With Worksheets("Sheet1").Range("A1")
        Select Case .HorizontalAlignment 
            Case xlHAlignLeft 
                .HorizontalAlignment = xlHAlignCenter 
            Case xlHAlignCenter 
                .HorizontalAlignment = xlHAlignRight 
            Case xlHAlignRight 
                .HorizontalAlignment = xlHAlignLeft 
        End Select 
    End With 
    
End Sub 

どのオブジェクトが対象の場合も、使用できる定数は、XlHAlign
クラスのxlHAlignCenter、xlHAlignDistributed、xlHAlignJustify、
xlHAlignLeft、xlHAlignRight のいずれかです。