Como puedo ir cambiando automáticamente la columna de un rango

Quiero q en rango se vaya cambiando la columna automático por ejemplo

Range("W27:W28").Select y lo q quiero es q rango cambie asi Range("X27:X28").Select y,Range("Y27:Y28").Select , pero todo q sea automático