While I was performing calculations on a spreadsheet, I realized it didn't select the correct number of columns.. It is supposed to select 10 columns... But it skips the last one. There are 11 columns and my data begin in the Second column. So, I don't need the first Column, only the following 10 ones.

How can I adjust the code so it performs the calculations on the 10 columns, excluding the FIRST one?

Sub TestColumns()
    Dim nb_Actions As Double
    Dim EnsembleActions As Range
    
    'I calculate the number of columns. This works all right
    With Worksheets("Actions")
        nb_Actions = .Cells(1, Columns.Count).End(xlToLeft).Column - 1
    End With

    'This one fails to select the LAST column!
    With Worksheets("Actions")
        Set EnsembleActions = .Range(.Cells(2, 2), .Cells(.Rows.Count, nb_Actions).End(xlUp))
        EnsembleActions.Select
        
    End With
    
    MsgBox "The number of columns is: " & nb_Actions
    End Sub