Как ограничить выбор строк числами в VBA

Question

У меня есть VBA Script, который в настоящее время копирует данные из Excel и сохраняет их в блокноте, единственная проблема, с которой я сталкиваюсь, заключается в том, что я не могу ограничить сохранение до 1000 строк, а затем создать новый блокнот для сохраненияследующие 1000, пока весь набор данных не будет сохранен в разных блокнотах.

Я пытался использовать количество строк, но я не могу сделать это для повторяющегося набора данных.

Sub Text_eob()
Dim ws As Worksheet
Dim s As String
Dim r  As Range
Dim fldrname As String
Dim fldrpath As String
Dim fso As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ws = ThisWorkbook.Sheets("EOB")
Worksheets("EOB").Activate
With ws
        Set rData = .Range(.Cells(2, 1), .Cells(.Rows.Count, 2).End(xlUp))
        .Columns(.Columns.Count).Clear
s = ws.Name
ws.Range(.Cells(1, 1), .Cells(.Rows.Count, 2).End(xlUp)).Select
Sheets(s).Select
Sheets(s).Copy
tdate = Now()
    Set fso = CreateObject("scripting.filesystemobject")
    fldrname = Format(tdate, "dd-mm-yyyy")
    fldrpath = "C:\Users\sasharat\Desktop\Lab_Upload\" & fldrname
    If Not fso.folderexists(fldrpath) Then
        fso.createfolder (fldrpath)
  End If
fldrname = Format(tdate, "dd-mm-yyyy")
fldpath = "C:\Users\sasharat\Desktop\Lab_Upload\" & fldrname & "\"
ActiveWorkbook.SaveAs fldpath & (Format(Now, "mmddyyyy") & "-" & "EOB"), FileFormat:=xlText
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Worksheets("Lab_Upload").Activate
    End With
End Sub

Я хочу, чтобы данные были разделены на 1000 строк в TXTфайлы, пока не будет завершен весь набор данных.