Задать направления текста в ячейке для нескольких ячеек через цикл

    Dim Clls(3) As Variant
    Clls(1) = Range("F4").Select
    Clls(2) = Range("J4").Select
    Clls(3) = Range("L4").Select
    For Each element In Clls
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Next

Public Sub ццй()
For i = 1 To 50
'B3, D3, F4, J4
If Cells(5, i).Column = 2 Or Cells(5, i).Column = 4 Or Cells(5, i).Column = 6 Or Cells(5, i).Column = 10 Then
    With Cells(5, i)
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    End If
    Next
End Sub

Sub MMM()
Application.ScreenUpdating = False
For Each cell In Worksheets(1).UsedRange
  If cell.MergeCells Then
    If cell.MergeArea.Rows.Count > 1 Then
      With cell
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .Orientation = 90
        .ShrinkToFit = False
        .ReadingOrder = xlContext
      End With
    End If
  End If
Next
For i = 1 To Cells(5, Columns.Count).End(xlToLeft).Column
  With Cells(5, i)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .Orientation = 90
        .ShrinkToFit = False
        .ReadingOrder = xlContext
  End With
Next
Application.ScreenUpdating = True
 
End Sub