Export data from excel to text in a specific order

I need help. I am tring to export data from below to a text file. i have included the file and the code below is located in Module2.

i need for the text file to loop through the part and date. I have selected the date range by varialbles and hidden the columns that didnt match the date range selected.

for each part i need the part number, date, and qty.
example
0022-IB | 12/5/2010 | 4996
0196-IB | 12/5/2010 | 10461
0197-IB | 12/5/2019 | 8308
0022-IB | 12/12/2010 | 4996
0196-IB | 12/12/2010 | 10461
0197-IB | 12/12/2019 | 8308
0022-IB | 12/19/2010 | 4996
0196-IB | 12/19/2010 | 10461
0197-IB | 12/19/2019 | 8308
0022-IB | 12/26/2010 | 4996
0196-IB | 12/26/2010 | 10461
0197-IB | 12/26/2019 | 8308

Raw Data
Part 12/5/2010 12/12/2010 12/19/2010 12/26/2010
0022-IB 4996 4996 4996 4996
0196-IB 10461 10461 10461 10461
0197-IB 8308 8308 8308 8308

Code for export.

For Each Cell In rdate
   If LCase(Cell.Value).Hidden = False Then rdate2 = LCase(Cell.Value)
    For Each Row In part
     part2 = Row.Value
     Print #1, part2, rdate2
     Next Row
 Next Cell
 Close #1