![]()
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
Bookmarks