Se forem colunas consecutivas experimente assim:
Range(Columns(2), Columns(4)).Select

Bom dia!!

Use ....

Sub AleVBA_12596()
    Union(Columns(1), Columns(2)).Select
End Sub

Att

Isso
não sendo consecutivas utilize usando Union, conforme o Alexandre informou

Union(Columns(7), Columns(9), Columns(11), Columns(13)).Select

DEsculpe,

pouco depois nas varias tentativas eu consegui...
primeiro com "Range(Cells(1, ti), Cells(Rows.Count, cd)).Select"
depois com "Range(Columns(ti), Columns(cd)).Select"

mas estava cansado demais (mentalmente) , para voltar ao forum .

oq me irrita é que são questões simples, mas que dão uma baita dor de cabeça.

afinal pq "RANGE(**)" não aceita numero como coluna?
e pq CELLS() tem posição de coluna invertido.

colunas são tão importantes quanto linhas ,
Por que não foi introduzido uma função para conversão direta?
em vez de ter que usar ...
Mid(NumeroCol, InStr(NumeroCol, "$") + 1, InStr(2, NumeroCol, "$") - 2)
Cells(1, LetraCol).Column

teria facilitado enormemente a escrita e simplificado a maioria das macros (pelo menos as minhas)

att.
e desculpe pelo desabafo