For j = 4 To 20000
    Select Case Range("I4:I20000").Value
        Case Is = "GEM 4000"
        Result = Sheets("INPUT").Select
                Range("B6:J6").Copy
                Sheets("IL Inventory").Select
                Cells("j", 9).Paste
        Case Is = ("GEM 5000")
        Result = Sheets("INPUT").Slect
                Range("B8:J8").Copy
                Sheets("IL Inventory").Select
                Cells("j", 9).Paste
    End Select
Next j