Ячейки слияния VBA с l oop через столбцы

Question

У меня WS выглядит следующим образом

У меня есть этот код:

Dim w As Long

Dim wb As Workbook
Dim sht As Worksheet

Set wb = ActiveWorkbook
Set sht = wb.ActiveSheet

Dim lRow As Long
Dim lCol As Long

lRow = Cells(Rows.Count, 1).End(xlUp).Row
lCol = Cells(4, Columns.Count).End(xlToLeft).Column

For w = 1 To lCol

   Range(.Cells(1, w), .Cells(2, w), .Cells(3, w)).Merge

Next w

Я хочу, чтобы ячейки были слиты и центрированы следующим образом :

Но я не могу найти правильный способ сделать это. Я хочу объединить первые 3 ячейки в каждом столбце Пример: A1: A3, но столбцов слишком много, поэтому я хочу провести через них l oop. Спасибо!

Answer 1

Я понял это! Это ответ

  For w = 1 To lCol

     With sht
         Range(Cells(1, w), Cells(3, w)).Merge

     End With

  Next w