VBA to clean and audit data

Have you tried the code in post #8.
One thing you should change is Cells(1,......

.Cells(1, Columns.CountLarge).End(xlToLeft).Column)

to Cells(3,...... So it gets the last column in row 3

.Cells(3, Columns.CountLarge).End(xlToLeft).Column)

or if the will only be 5 columns just use

            ReDim LineValues(1 To 5)
            For RowNum = 1 To .Cells(Rows.CountLarge, "a").End(xlUp).Row
                For ColNum = 1 To 5
                    LineValues(ColNum) = .Cells(RowNum, ColNum)
                Next
                Line = Join(LineValues, ",")
                Print #OutputFileNum, Line
            Next