vba - 可変であるが行数が同じで、列が隣接していない異なる列をフォーマットする

Question

私のデータには10列以上あり、そこから3つの列を選択し、それらの3つの列をさらにフォーマットしたいのですが、いいえ. の行が固定されていないため、これら 3 つの列を一度に選択することはできません。これが私がやろうとしていることです

Dim lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("G2:H" & lastrow, "J2:J" & lastrow).Select

しかし、これは I 列も選択しています。これもやってみた

Range("G2:H & lastrow, J2:J" &lastrow).select

しかし、これにより、予想どおりエラーが発生しました。

使用時

Range("J2:J" & lastrow).Select 
With Selection
    .NumberFormat = "0"
    .Value = .Value
End With

データは適切にフォーマットされますが、隣接していない3つの列すべてに対してこれを行いたいです

しかし、私が使用する場合

 Intersect(Range("G:H, J:J"), Rows("2:" & lastrow)).Select
 With Selection
     .NumberFormat = "0"
     .Value = .Value
 End With

列 G と H は適切にフォーマットされますが、列 J はそうではなく、#NA エントリが表示されます。