1 - tek satırlık kod
kesikli aralıklar için

Application.Goto ThisWorkbook.Sheets("LOKASYON").Range("B37,D9:f11,g7,s5:t7")

sürekli aralık için

Application.Goto ThisWorkbook.Sheets("LOKASYON").Range(Cells(1, 8), Cells(3, 2))

2 -

ThisWorkbook.Sheets("LOKASYON").Activate

ActiveSheet.Range("c3,h1").Select

hatta bir kaç farklı aralık yada bağımsız hücre seçmek için : ve , kombinasyonları kullanabilirsiniz

ActiveSheet.Range("B37,D9:f11,g7,s5:t7").Select