Hi

See how this goes.

Sub aaa()
  filestr = "Test_" & Format(Now(), "yyyy_mm_dd_hh_mm_ss") & "_Full.txt"
  Open "c:\test\" & filestr For Output As #1
  lastcol = Cells(6, Columns.Count).End(xlToLeft).Column
  lastrow = Cells(Rows.Count, 1).End(xlUp).Row
  
  For i = 2 To lastcol
    If Cells(6, i) = "X" Then
      For j = 8 To lastrow
        If UCase(Left(Cells(j, 1).Value, 3)) <> "JOB" And UCase(Left(Cells(j, 1).Value, 3)) <> "USER" And Not IsEmpty(Cells(j, i)) Then
          Print #1, Cells(j, 1).Value & Cells(j, i).Value
        End If
      Next j
    End If
  Next i
  
  Close #1
End Sub
rylo