Q:

Highlight cells in a column the same as the cells directly above them

I am using a VLOOKUP formula in a macro to highlight cells in a list of item #'s (Column B).  In the cells directly below each item are the item descriptions. What I need to do is if an item # gets highlighted, then copy the same highlighting for it's description directly below it.
Columns("B:B").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=VLOOKUP(B1:B3000,Sheet1!$A:$A,1,FALSE)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 12611584
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

A:

I'd use ISNUMBER and MATCH instead of VLOOKUP, like this: =ISNUMBER(MATCH(B1,Sheet1!A:A,0)).
With relative references, and changing the "Applies to" range, you can highlight the description with a similar formula. E.g. in the following example, the formula is =ISNUMBER(MATCH(B2,Sheet1!A:A,0)), but the  "Applies to" range is B3:B12, effectively applying the highlighting to the cell immediately under the item number.

The VBA should be pretty easy to figure out here. 

