código VBA em linha única, incluindo vários intervalos

Question

Eu tenho que colocar cada faixa de células em uma linha separada, como esta

Range("A6:B" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft
Range("G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft

ou posso de alguma forma incluir grupos de colunas (de determinada célula até o fim) que não estão próximas umas das outras em uma única linha? Este código abaixo não parece funcionar para mim.

Range("A6:B,G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft

    

Answer 1

Você pode usar Union :

Union(Range("A6:B" & Cells.SpecialCells(xlCellTypeLastCell).Row), Range("G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row)).HorizontalAlignment = xlLeft