VBA Excel Макрос вставляет заголовок перед каждой строкой в ​​таблице Excel, где есть объединенные строки

Question

Я новичок в программировании макросов. Помощь ищется от экспертизы здесь.

Мне нужно вводить заголовок (Элемент, Направление информации (см. Снимок)) после каждого серийного номера (т.е. 1, 2 (см. Снимок)). Я кодировал, как показано ниже, но он не работает для объединенных ячеек в Excel, как показано на снимке.

Я хочу сделать это в книге, содержащей более 50 листов, где на каждом листе есть такие таблицы, которые видны на снимке. Это может быть простая вещь, но я новичок в макросе VBA. Заранее спасибо за ваше решение, комментарии и время.

Код:

Sub WorksheetLoopmacro()

Dim WS_Count As Integer
Dim I As Integer

    ' Set WS_Count equal to the number of worksheets in the active
    ' workbook.
    WS_Count = ActiveWorkbook.Worksheets.Count

    ' Begin the loop.
    For I = 1 To WS_Count

               Cells.Find(What:="Item").Activate

            Do Until ActiveCell.Offset(2, 1).Value = ""

                ActiveCell.EntireRow.Select
                Selection.Copy
                ActiveCell.Offset(2, 0).Select
                Selection.Insert shift:=xlDown
                Application.CutCopyMode = False

            Loop

        ' MsgBox ActiveWorkbook.Worksheets(I).Name

        Worksheets(ActiveSheet.Index + 1).Select

    Next I

End Sub