Option Explicit
Sub test()
Dim x As Range
Set x = Range("A9:A23").Find(Range("A1").Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
x.Resize(4).Font.Bold = True
Rows(x.Row).Interior.ColorIndex = 3
Rows(x.Row + 1).Interior.ColorIndex = 45
Rows(x.Row + 2).Interior.ColorIndex = 6
Rows(x.Row + 3).Interior.ColorIndex = 4
End If
End Sub