title: Split large CSV file with header into multiple CSV files for every nth row with a header
body: <p>I have a large CSV file that I would like to split into multiple CSV files. I've tried numerous VBS scripts, but I cannot seem to get this.</p>
  
  <p>This script does some of what I want but does not save them as CSV files:</p>
  
  <pre><code>Sub Split()
  Dim rLastCell As Range
  Dim rCells As Range
  Dim strName As String
  Dim lLoop As Long, lCopy As Long
  Dim wbNew As Workbook
  
  With ThisWorkbook.Sheets(1)
      Set rLastCell = .Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious)
  
      For lLoop = 1 To rLastCell.Row Step 35
          lCopy = lCopy + 1
          Set wbNew = Workbooks.Add
          .Range(.Cells(lLoop, 1), .Cells(lLoop + 35, .Columns.Count)).EntireRow.Copy _
          Destination:=wbNew.Sheets(1).Range("A1")
          wbNew.Close SaveChanges:=True, Filename:="Inventory_" &amp; lLoop + 34
      Next lLoop
  End With
  </code></pre>
  
  <p>End Sub</p>