consh | concrete5 5.7 shell scripts | Continuous Backup library

I'm new to vba so will really appreciate any help . After a long unfruitful search I can't find why my code won't work.

To explain the problem, I have an Excel File with a bunch of data sorted by an index called Prod.Type in column A.

Here's an example of what I'm trying to do:

The code is supposed to:

in a loop to check all Rows value of Prod.Type and If the checked row is equals the variable prodNum then it copy the row into a new excel file.

Else it close the file and increment prodNum and loop again until the whole column has been checked, of course it will create a new Excel file for each produNum which prove to be true.

The result for prodNum = 2 should show only the header and the rows which equals 2

But the result I get is only the headers row getting paste

Here's the code I have made