Макрос для поиска определенного столбца в таблице по названию столбца и применения к нему условного форматирования

Sub Макрос1()
    Cells.Find(What:="Сирень", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Sub Макрос()
Dim r As Range
 
Set r = Rows(1).Find("Сирень", , xlValues, xlWhole)
    
If Not r Is Nothing Then
 With Range(r.Offset(1, 0), r.Offset(1, 0).End(xlDown)(1))
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=1"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    .FormatConditions(1).StopIfTrue = False
End With
End If
 
End Sub

Sub Макрос()
Dim r As Range
 
Set r = Rows(1).Find("Сирень", , xlValues, xlWhole)
    
If Not r Is Nothing Then
If r.End(xlDown)(1).Row < r.Parent.Rows.Count Then
 
 With Range(r.Offset(1, 0), r.End(xlDown)(1))
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=1"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    .FormatConditions(1).StopIfTrue = False
End With
End If
End If
 
End Sub