Укоротить запись условия.

[agregator]

Здравствуйте уважаемые программисты. Подскажите, как можно укоротить условие:
If Target(1, 1).Value = 245 Or Target(1, 1).Value = 1145 Or Target(1, 1).Value = 1146 Or Target(1, 1).Value = 1162 Or Target(1, 1).Value = 1163 Or Target(1, 1).Value = 1166 Or Target(1, 1).Value = 1168 Or Target(1, 1).Value = 1171 Or Target(1, 1).Value = 1177 Or Target(1, 1).Value = 1186 Then
Target(1, 3).Value = "грузовых"
Else
Target(1, 3).Value = "легковых"
End If

[EducatedFool]

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target(1, 1)
        Case 245, 1145 To 1147, 1162, 1163, 1166
            Target(1, 3) = "грузовых"
        Case Else
            Target(1, 3) = "легковых"
    End Select
End Sub

[agregator]

EducatedFool, спасибо за помощь.