Как найти объединенные ячейки с конкретной информацией и сохранить значение строки для дальнейшего использования VBA

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

Например:

John Oliver Old Charlie Brown Young Louis Vouitton Child 

Одна кнопка должна была бы добавить строку перед Джоном Оливером Старой (которая работает). Вторая кнопка должна добавить строку перед Луи Вуиттоном

Моя проблема в том, что мне нужны макросы, чтобы знать, в какой строке находится «Lousi Vuitton», чтобы узнать, где добавить эту строку.

  Sub AddSafetyRow() ' ' AddSafetyRow Macro ' ' Rows("10:10").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow Range("A10:BV10").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Selection.Borders(xlInsideHorizontal).LineStyle = xlNone With Selection.Font .Name = "Arial" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Selection.Font.Size = 10 Range("A10:C10").Select Selection.Font.Bold = True Range("B10").Select Selection.Font.Size = 11 Selection.Font.Size = 12 Range("BO10").Select ActiveCell.FormulaR1C1 = "Hector Vela" Range("B10").Select ActiveCell.FormulaR1C1 = "Safety Audit" Range("A10").Select ActiveCell.FormulaR1C1 = Format(Date, "mmmm") Range("B10").Select ActiveWindow.ScrollColumn = 4 End Sub 

Это то, что у меня есть до сих пор, так как вы можете видеть, что все жестко привязано к определенному местоположению, мне нужно сделать все жестко заданные значения динамическими, чтобы работать по моей намеченной цели. Спасибо за любую помощь, которую вы могли бы предоставить.

Давайте будем гением компьютера.