Разбить большое количество строк (более 15000) на количество до 990 с переносом на новые листы

Sub MMM()
Application.ScreenUpdating = False
    With ThisWorkbook
        With Sheets(1)
             Set r = .Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
             LR = r.Row
             If LR Mod 990 = 0 Then N = LR / 990 Else N = Int(LR / 990) + 1
             ARR0 = Range(.Cells(1, 1), r).Value
        End With
              For X = 1 To N
                        ReDim ARR1(1 To 990, 1 To UBound(ARR0, 2))
                            For i = 1 To 990
                            On Error Resume Next
                                    For j = 1 To UBound(ARR0, 2)
                                      ARR1(i, j) = ARR0(i + (X - 1) * 990, j)
                                    Next
                            Next
                        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = CStr(X)
                        .ActiveSheet.Range("A1").Resize(990, UBound(ARR0, 2)).Value = ARR1
             Next
        End With
 Application.ScreenUpdating = True
MsgBox ("Job Complete")
End Sub

Sub tt()
    Dim i&
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 990
        Rows(i).Resize(990).Copy Sheets.Add.Cells(1)
    Next
End Sub

Sub MMM()
Application.ScreenUpdating = False
    With ThisWorkbook
        With Sheets("GetFile")
             Set r = .Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
             LR = r.Row
             If LR Mod 990 = 0 Then N = LR / 990 Else N = Int(LR / 990) + 1
             ARR0 = Range(.Cells(1, 1), r).Value
        End With
              For X = 1 To N
                        ReDim ARR1(1 To 990, 1 To UBound(ARR0, 2))
                            For i = 1 To 990
                            On Error Resume Next
                                    For j = 1 To UBound(ARR0, 2)
                                      ARR1(i, j) = ARR0(i + (X - 1) * 990, j)
                                    Next
                            Next
                        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = CStr(X)
                        .ActiveSheet.Range("A2").Resize(990, UBound(ARR0, 2)).Value = ARR1
             Next
        End With
 Application.ScreenUpdating = True
MsgBox ("Job Complete")
End Sub