VBA For loop works once and then on second try it creates a Run-time error

Question

New to coding and VBA, however work wanted a workbook without any errors. I have created a system for ordering parts that runs a macro that searches for the parts ordered by