Okay...this has undergone some very, very light testing, but try it out on your data and see if it works.
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> ExportData2TxtFile()
<SPAN style="color:#00007F">Dim</SPAN> FieldHeader <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> FieldCount <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> j <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> k <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> f <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
<SPAN style="color:#00007F">Const</SPAN> DATFILE <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> = "C:\data_export.dat" <SPAN style="color:#007F00">'change this to your file destination</SPAN>
FieldCount = ThisWorkbook.Sheets(2).Range("$A$6").End(xlToRight).Column
<SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> FieldCount
<SPAN style="color:#00007F">If</SPAN> i = 1 <SPAN style="color:#00007F">Then</SPAN>
FieldHeader = ThisWorkbook.Sheets(2).Cells(6, i)
<SPAN style="color:#00007F">Else</SPAN>
FieldHeader = FieldHeader & "," & ThisWorkbook.Sheets(2).Cells(6, i)
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN>
f = FreeFile
<SPAN style="color:#00007F">Open</SPAN> DATFILE <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Output</SPAN> <SPAN style="color:#00007F">As</SPAN> #f
<SPAN style="color:#00007F">Print</SPAN> #f, FieldHeader
<SPAN style="color:#00007F">For</SPAN> i = 2 <SPAN style="color:#00007F">To</SPAN> 8
<SPAN style="color:#00007F">For</SPAN> j = 7 <SPAN style="color:#00007F">To</SPAN> ThisWorkbook.Sheets(i).Cells(Rows.Count, 3).End(xlUp).Row
<SPAN style="color:#00007F">Dim</SPAN> RecordData <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
<SPAN style="color:#00007F">With</SPAN> ThisWorkbook.Sheets(i)
<SPAN style="color:#00007F">For</SPAN> k = 1 <SPAN style="color:#00007F">To</SPAN> FieldCount
<SPAN style="color:#00007F">If</SPAN> k = 1 <SPAN style="color:#00007F">Then</SPAN>
RecordData = .Cells(j, k)
<SPAN style="color:#00007F">Else</SPAN>
RecordData = RecordData & "," & .Cells(j, k)
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">Print</SPAN> #f, RecordData
<SPAN style="color:#00007F">Next</SPAN>
<SPAN style="color:#00007F">Next</SPAN>
<SPAN style="color:#00007F">Close</SPAN> #f
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>