Циклический-Through-A-Range

Question

Я готовлю макрос для циклического прохождения ряда ячеек в столбце и проверки, если их значения меньше 200, если так, появляется окно сообщения для изменения таких значений.Сначала я выбираю активную ячейку (начальный диапазон показан на рисунке), к которой относятся все остальные ячейки.Однако эта ячейка является объединенной ячейкой (2 объединенные ячейки).Как показано в данном MWE.Если я установлю активную ячейку в виде двух объединенных ячеек в том же столбце, то в (Для следующего цикла) первая строка (выделена желтым цветом) проверяется правильно, если ее значение меньше 100, но оно пропускаетсявторой ряд и идет к третьему ряду (выделен зеленым цветом).Если активная ячейка является отдельной ячейкой, а не объединенной, процесс работает правильно.

Sub ss()

    'Set active cell to which all offsets are related: On-screen selection
    Worksheets("Sheet1").Activate

    Dim column_name As Range
    Set column_name = Application.InputBox(prompt:="Select the starting range(Column Name):", Title:="Starting range (Column Name)", Default:=Selection.Address, Type:=8)
    column_name.Select

    `Check Minimum value for the known dimension
     Dim row_count As Single

     For row_count = 0 To 1
         If ActiveCell.Offset(row_count, 7).Value <= 200 Then
             If MsgBox(prompt:="Known dimension is less than or equal to minimum dimension", Buttons:=vbYesNo, Title:="Modify Known Dimension") = vbYes Then
                 ActiveCell.Offset(row_count, 7).Value = InputBox("Enter New value:", "Modifying known dimension", ActiveCell.Offset(row_count, 7).Value)
             End If
         End If
     Next row_count

End Sub

Настройка основного листа Excel