bit like this maybe... depends what it looks like at your end, something to work from anyway...
' Macro39 Macro
'
'Go through row by row and colour in....
Range("A1").Select
Do Until ActiveCell = ""
If ActiveCell.Value = 0 Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
If ActiveCell.Value = 0 Then ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = 1 Then ActiveCell.Offset(1, 0).Select
End If
Loop
Range("b1").Select
Do Until ActiveCell = ""
If ActiveCell.Value = 0 Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
If ActiveCell.Value = 0 Then ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = 1 Then ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub