Various Text alignment in one code

[ipbr21054]

Hi,
Partial piece of code supplied for you

My range is N4:R4

Assuming i would like the Text alignment Center ".HorizontalAlignment = xlCenter" for cells O4:R4 only as cell N4 needs to be Text alignment Left ".HorizontalAlignment = xlLeft"
Please advise how the code below should then look.

Thanks

        End If

        LastRow = .Cells(Rows.Count, "N").End(xlUp).Row + 1
       
        Application.ScreenUpdating = False
        For i = 1 To 5
            With .Cells(LastRow, i + 13)
                .Value = Me.Controls("TextBox" & i).Value
                .Font.Name = "Calibri"
                .Font.Size = 11
                .Font.Bold = True
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                .Borders.Weight = xlThin
                .Interior.ColorIndex = 6
            End With
            
        Next i
        Application.ScreenUpdating = True

 

[kanadaaa]

Here:

        Application.ScreenUpdating = False
        For i = 1 To 5
            .Cells(LastRow, i + 13).Value = Me.Controls("TextBox" & i).Value
        Next i
        .Cells(LastRow, "N").HorizontalAlignment = xlLeft
        With .Cells(LastRow, 14).Resize(,5)
            .Font.Name = "Calibri"
            .Font.Size = 16
            .Font.Bold = True
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Borders.Weight = xlThin
        End With
        Application.ScreenUpdating = True

 

[ipbr21054]

Hi,
Thats not what i meant,maybe i didnt explain correctly.

Cell N4 = Text Alignment Left
Cell O4 = Text Alignment Center
Cell P4 = Text Alignment Center
Cell Q4 = Text Alignment Center
Cell R4 = Text Alignment Center

The code in post #2 is ALL CENTER

See attached photo please

 

[kanadaaa]

It's my blunder. Try this:

        Application.ScreenUpdating = False
        For i = 1 To 5
            .Cells(LastRow, i + 13).Value = Me.Controls("TextBox" & i).Value
        Next i
        With .Cells(LastRow, "N").Resize(,5)
            .Font.Name = "Calibri"
            .Font.Size = 16
            .Font.Bold = True
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Borders.Weight = xlThin
        End With
        .Cells(LastRow, "N").HorizontalAlignment = xlLeft
        Application.ScreenUpdating = True

 

[ipbr21054]

Thanks very mcuh