Select Case debug

Thank you.

You can't compare a scalar value to an array; you need to test one value at a time. I can't tell what the rest of the code is supposed to do. Maybe this:

  For j = 4 To 20000
    Select Case cells(j, "I").Value
      Case "GEM 4000"
        Sheets("INPUT").Range("B6:J6").Copy Sheets("IL Inventory").Cells(j, "I")
      Case "GEM 5000"
        Sheets("INPUT").Range("B8:J8").Copy Sheets("IL Inventory").Cells(j, "I")
    End Select
  Next j