If I understand, you want to change  the background color  of every row  that has a
number in column  A. You don't need VBA for this. Select all cells (click on the
box above the row numbers and to the left of the column letters). Select
Conditional Formatting from the Format menu. Select Formula Is instead of Cell
Value Is, and enter =COUNT($A1) in the formula box. Click the Format button, and
select the color you want on the Patterns tab. Click OK to close the Format
Cells dialog, then OK to close the Conditional Formatting dialog. When a number
is entered into any cell in column A, that row will be highlighted in the
selected color.