How to create macro/vba to highlight or conditional formating to a group of cells.

not sure if this is the same/close to the other post....but here goes...this does a little more than this thread asks for....

Sub testing()

    Dim LastRow As Single, LastRowOnes As Single, x As Single
    
    LastRow = Cells(65000, 1).End(xlUp).Row
    
    For x = 1 To LastRow
        If Cells(x, 1).Value = 0 Then
            LastRowOnes = x - 1
            Exit For
        End If
    Next x
    
    Rows("1:" & LastRowOnes).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    Rows(LastRowOnes + 1 & ":" & LastRowOnes + 1).Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Rows(LastRowOnes + 1 & ":" & LastRowOnes + 5).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells(1, 1).Select

End Sub

You could use a conditional format
Select B2
Select --> Home > Conditional Formating > Manage Rules >New Rule >Use a formula to determine which cells to format
Format values where this formula is true --> =$A2 = 1
Format --> Select fill = blue
Copy B2 and do a "Paste Special"> Formats" in all cells in all rows and coluns