title: How can I read the rows in txt files but starting from the second row, skipping first row?
body: <p>So this Excel Macro works great in reading multiple txt files from a specific folder and inserting all the rows in the first excel sheet. I would like to edit this code in order for the macro to skip the first row of every txt file..</p>
  
  <p>Can anyone help ?</p>
  
  <pre><code>Sub test1()
      Dim fso As FileSystemObject
      Dim folder As folder
      Dim file As file
      Dim FileText As TextStream
      Dim TextLine As String
      Dim Items() As String
      Dim i As Long
      Dim cl As Range
  
  
  
      ' Get a FileSystem object
      Set fso = New FileSystemObject
  
      ' get the directory you want
      Set folder = fso.GetFolder("C:\Users\Desktop\TXT")
  
      ' set the starting point to write the data to
      Set cl = ActiveSheet.Cells(1, 1)
  
      ' Loop thru all files in the folder
      For Each file In folder.Files
          ' Open the file
          Set FileText = file.OpenAsTextStream(ForReading)
  
          ' Read the file one line at a time
          Do While Not FileText.AtEndOfStream
              TextLine = FileText.ReadLine
  
              ' Parse the line into | delimited pieces
              Items = Split(TextLine, vbTab)
  
              ' Put data on one row in active sheet
              cl.Value = file.Name
              ' Put data on one row in active sheet
              For i = 0 To UBound(Items)
                  cl.Offset(0, i + 1).Value = Items(i)
              Next
  
              ' Move to next row
              Set cl = cl.Offset(1, 0)
          Loop
  
          ' Clean up
          FileText.Close
      Next file
  
      Set FileText = Nothing
      Set file = Nothing
      Set folder = Nothing
      Set fso = Nothing
  
  End Sub
  </code></pre>