Sub grey()
Last = Cells(Rows.Count, 2).End(xlUp).Row
For i = Last To 1 Step -1
If Cells(i, 2).Value = Range("T6").Value Then
Cells(i, "A").EntireRow.Resize(Range("V6").Value, 11).Select
Selection.Interior.ColorIndex = 0
End If
Next i
Selection.Interior.ColorIndex = 15
Last = Cells(Rows.Count, 2).End(xlUp).Row
For i = Last To 1 Step -1
If Cells(i, 2).Value = Range("T7").Value Then
Cells(i, "A").EntireRow.Resize(Range("V7").Value, 11).Select
Selection.Interior.ColorIndex = 0
End If
Next i
Selection.Interior.ColorIndex = 15
Last = Cells(Rows.Count, 2).End(xlUp).Row
For i = Last To 1 Step -1
If Cells(i, 2).Value = Range("T8").Value Then
Cells(i, "A").EntireRow.Resize(Range("V8").Value, 11).Select
Selection.Interior.ColorIndex = 0
End If
Next i
Selection.Interior.ColorIndex = 15
End Sub