Need to split excel file with header into smaller files with same headers in excel

Hi,
I have an excel file with over 500,000 and need to split it into separate files of 50,000 records in each file. I also need the header to remain the same for each of the file. I am not good at VBA or macros. can anyone help please as I have been trying for two days now to do this.
Thanks
Mo

I also need answere to this if possible

Sub Macro1()
Dim lTop As Long, lBottom, lCopy As Long
Dim LastRow As Long, LastCol As Long
Dim wbNew As Workbook, sPath As String

sPath = ThisWorkbook.Path
With ThisWorkbook.Sheets(1)
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
lTop = 2
Do
lBottom = lTop + 20000
If lBottom > LastRow Then lBottom = LastRow
lCopy = lCopy + 1

Set wbNew = Workbooks.Add
.Range(.Cells(1, 1), .Cells(1, LastCol)).Copy
wbNew.Sheets(1).Range("A1").PasteSpecial
.Range(.Cells(lTop, 1), .Cells(lBottom, LastCol)).Copy
wbNew.Sheets(1).Range("A2").PasteSpecial

wbNew.Close SaveChanges:=True, FileName:=sPath & "\Split " & lCopy & " Rows " & lTop & "-" & lBottom
lTop = lBottom + 1
Loop While lTop <= LastRow
End With
End Sub

I cannot get the headers to go onto next page thou ..Can anyone help on this please

Hey no you only have to save and put in csv instead of save using same name and under save as type CSV (*CSV) as the drop down options

HI there
I am a newbie here ,and i am new to excel.I have encountered the same problem.I want to split the excel files into two parts.And i have googled a code to do that:
/// <summary>
/// Split an Excel document into two sub-documents.
/// </summary>
/// <param name="originalDocument"></param>
/// <param name="pageIdx"></param>
public void splitPDFDocument(String sourceFilePath,List<String>destnsPath, int pageIdx)
{
ExcelDocument.SplitDocument(sourceFilePath, pageIdx, destnsPath);
}
But it display nothing.What's wrong with my code?Is there any excel processing program which supports to do that directly?Thanks for any suggestion.