Basically what i want to happen is in column I there is several product types that i want to replace with a range of values from a separate tab, can't figure out why its not working, keep getting "type match error #13" on the first Case Is line.
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
Please Help
Thanks in advance
Bookmarks