Is there a way to assign values to an Option Base 1 array in VBA using a single line?

If a Variant array is OK:

Dim cols()
cols = [{2,3,5,6,7,9,10,13,14,15,16}]

If you are okay with two lines instead of one line, you can try this:

Dim cols As Variant

cols = Array(2,3,5,6,7,9,10,13,14,15,16)
ReDim Preserve cols(1 To UBound(cols) + 1)