Something like this:

wb1.Activate
Set ws1 = wb1.Sheets("Total Purchased")
With ws1
and then all your Ranges refering to that sheet inside that with statement need to look like:

lastrow1 = .Cells(Rows.Count, 1).End(xlUp).row
    
    Set inRng = .Range(.Cells(3, 1), .Cells(lastrow1, 1))
etc. etc.