Procedimiento demasiado largo

Por favor quien me puede ayudar a terminar mi proyecto. Me sale un error porqu es demasiado largo.les coloco una parte dl código y abajo les explico
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
Select Case Target.Value
Case Is = 1
Range("E4:N4").Interior.ColorIndex = 4
Range("Q4:DT4").Interior.ColorIndex = 0
Case Is = 2
Range("E4:Z4").Interior.ColorIndex = 4
Range("AC4:DT4").Interior.ColorIndex = 0
Case Is = 3
Range("E4:AL4").Interior.ColorIndex = 4
Range("AO4:DT4").Interior.ColorIndex = 0
Case Is = 4
Range("E4:AX4").Interior.ColorIndex = 4
Range("BA4:DT4").Interior.ColorIndex = 0
Case Is = 5
Range("E4:BJ4").Interior.ColorIndex = 4
Range("BM4:DT4").Interior.ColorIndex = 0
Case Is = 6
Range("E5:BV5").Interior.ColorIndex = 4
Range("BY4:DT4").Interior.ColorIndex = 0
Case Is = 7
Range("E5:CH5").Interior.ColorIndex = 4
Range("CK4:DT4").Interior.ColorIndex = 0
Case Is = 8
Range("E4:CT4").Interior.ColorIndex = 4
Range("CW5:DT5").Interior.ColorIndex = 0
Case Is = 9
Range("E4:DF4").Interior.ColorIndex = 4
Range("DI4:DT4").Interior.ColorIndex = 0
Case Is = 10
Range("E4:DL4").Interior.ColorIndex = 4
Range("DM4:DT4").Interior.ColorIndex = 0
Case Is = 11
Range("E4:DP4").Interior.ColorIndex = 4
Range("DQ4:DU4").Interior.ColorIndex = 0
Case Is = 12
Range("E4:DT4").Interior.ColorIndex = 4
call Sub Worksheet_Change1
End Select
End If
Esto lo hago como 30 veces más y me dice que el procedimiento es demasiadop lago por lo que leí puedo usar subprocedimientos. E intentado con call procedimiento o solo con el nombre y de error
esto es lo que hago
Sub Worksheet_Change1(ByVal Target As Range)
sentencias......
end sub
Se lo agradecería mucho, Gracias!