Conditional Format Over Range Of Rows

I've been trying to get around the 3 rule limit for conditional formatting,
and I've found the code I need on the site

[url]

I've changed it to suit my needs


Private Sub Worksheet_Change(ByVal Target As Range)

Dim icolor As Integer
If Not Intersect(Target, Range("A1:A2000")) Is Nothing Then
Select Case Target
Case Is = "Test"
icolor = 6
Case Is = "Test2"
icolor = 12
Case Is = "Test3"
icolor = 7
Case Is = "Test4"
icolor = 53
Case Is = "Test5"
icolor = 15
Case Is = "Test6"
icolor = 42
Case Else
End Select

Target.Interior.ColorIndex = icolor

End If

End Sub

This works great for one cell, but I need to format a row range based on the single cell.
So if Test is entered into A1, then it changes to yellow, I also need the next 6 cells on the row to change too- In this case [B1:G1].

But it needs to cover the range in the code A1:A2000