Автоматическое заполнение ячеек через макрос

[all4you]

Ребят, привет. Помогите, пожалуйста, с макросом, если найдется время. Пример желаемого прикрепил к сообщению. В примере серым цветов выделены ячейки, значения в которые забиваются в ручную (их трогать не нужно), а желтым цветом выделены значения, которые необходимо, чтобы проставлялись автоматически при применении макроса, это первые два столбца. Количество листов бывает больше 15, т.е. в примере только два листа показаны, но на самом деле их больше.... Спасибо.

[IgorGO]

вот это заполнит отформатированные таблицы на всех листах

Sub Fill12Column()
  Dim r As Long, i As Long, k As Long, sh
  i = 1: k = 0
  For Each sh In Sheets
    With sh
      For r = 6 To .UsedRange.Rows.Count + 33
        If .Cells(r, 3).MergeCells And (Not .Cells(r, 1).MergeCells) Then
          .Cells(r, 1) = i:  .Cells(r, 2) = "ò" & i
          k = 0: i = i + 1
        Else
          k = k + 1:  If k > 31 Then Exit Sub
        End If
      Next
    End With
  Next
End Sub

а что на самом деле Вам надо получить, думаю, никто не понял

[all4you]

Сообщение от IgorGO

вот это заполнит отформатированные таблицы на всех листах

Sub Fill12Column()
  Dim r As Long, i As Long, k As Long, sh
  i = 1: k = 0
  For Each sh In Sheets
    With sh
      For r = 6 To .UsedRange.Rows.Count + 33
        If .Cells(r, 3).MergeCells And (Not .Cells(r, 1).MergeCells) Then
          .Cells(r, 1) = i:  .Cells(r, 2) = "ò" & i
          k = 0: i = i + 1
        Else
          k = k + 1:  If k > 31 Then Exit Sub
        End If
      Next
    End With
  Next
End Sub

а что на самом деле Вам надо получить, думаю, никто не понял

IgorGO, спасибо большое за код! Вы все правильно поняли, все отлично работает!