Separar uma tabela com 6.300.000 registros em planilhas do Excel com 500.000 registro cada.

Boa tarde Amigos!

Tenho diversas tabelas imensas, e pretendo dividi-las automaticamente em diversas planilhas em Excel com cerca de 500.000 registro cada uma tabela.
Para iniciar, tenho uma tabela de 6.300.000 registros e pretendo dividi-la em alguns arquivos excel com os 500.000 registros cada.

iniciei um código, consegui abrir o excel no vba, mas não sei o que utilizar para montar os arquivos de 500.000 registros e ir retirando da tabela de 6.300.00.

-------------------------------------------------------------------------------------------------
Private Sub cmdGera_Click()
On Error Resume Next

Dim iCont As Integer
Dim MeuXL As Object ' Variável para conter a referência ao Microsoft Excel.
Dim ExcelNãoEstavaSendoExecutado As Boolean ' Sinalizador para liberação final.
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim x As Long
   
      DoCmd.Hourglass False
      DoCmd.SetWarnings False
     
       Set db = CurrentDb
             
       Set MeuXL = GetObject(, "Excel.Application")
       If Err.Number <> 0 Then ExcelNãoEstavaSendoExecutado = True
       Err.Clear
           If Mid(CurrentDb.Name, 1, 1) = "C" Then
           Set MeuXL = GetObject("C:\Users\Erik\Desktop\Dados\ExcelMontado.xlsx")
           End If
       
       MeuXL.Application.Visible = True
       MeuXL.Parent.Windows(1).Visible = True
       
       Set xlSheet = MeuXL.Worksheets("PlanilhaTeste")

------------------------------------------------------------------------------------------------------------------------------------------

Desde já agradeço.
Muito Obrigado!

Erik_Rezende

estes 6.300.000 registros tem um campo numero especifico para você identificar cada um individualmente?
se tiver, pode fazer com que o código pegue do nº 1 ao 500.000, depois do 500.001 ao 1.000.000, etc. entendeu?