I'm not sure what you're shooting for. This declares a string array that has 10 elements.

    Dim LastCol As Long
    Dim orderMonth() As String
    
    LastCol = 10    '???
    
    ReDim orderMonth(1 To LastCol)  'The string array orderMonth is set with 10 elements