Обведите макрос в каждой колонке

Question

Я пытаюсь создать макрос, который будет выполнять процесс для каждого столбца, вплоть до определенного столбца «X».

Ниже приведен макрос, который я записал, а затем дополнительный код, который я пытался вставить вчтобы получить желаемый результат.

Sub ColumnFill2()
   Range(Selection, Selection.End(xlDown)).Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   Selection.FormulaR1C1 = "=IF(INDIRECT(ADDRESS(ROW()-1,COLUMN()))=0,"""",INDIRECT(ADDRESS(ROW()-1,COLUMN())))"

   Dim lngCol As Long
   Dim X As Long
   lngCol = ActiveCell.Column + 1

   For X = 1 To 57
      Cells(X + 1, lngCol) = X
   Next X
End Sub

Я хочу, чтобы каждый столбец форматировался с включенной формулой в каждой пустой строке (в таблице приведены подытоги).В настоящее время он работает в столбце 1, но затем что-то отключено.Я считаю, что это отправная точка в следующем столбце, который должен быть в строке 2 каждый раз.