Sub enstaralfgg()
Dim Rg1 As Range, kRw$, kSh%, i&
Const Ima As String = "Раздел"
kRw = 50
Set Rg1 = ThisWorkbook.Worksheets(1).Cells(1).CurrentRegion

kRw = InputBox(vbNullString, "Введите количество строк на листе", kRw)
If StrPtr(kRw) = 0 Then Exit Sub
If kRw = vbNullString Then Exit Sub
kSh = Rg1.Rows.Count \ kRw + 1

If MsgBox("Создать " & kSh & " новых листов с данными" & _
vbNewLine & "Продолжить?", 52, "ВНИМАНИЕ!") = 7 Then Exit Sub
Set Rg1 = Rg1.Resize(kRw, Rg1.Columns.Count)

    Application.ScreenUpdating = False
For i = 1 To kSh
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Ima & i
    Rg1.Copy Cells(1)
    Set Rg1 = Rg1.Offset(kRw, 0)
Next
    Application.ScreenUpdating = True
End Sub

Sub tblSplit()
Const iStp& = 45  'количество строк в таблицах
Dim lRow&
Dim rngInsert As Range
Application.ScreenUpdating = False
With ActiveSheet
  lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
  For I = iStp To lRow Step iStp
    If Not rngInsert Is Nothing Then
      Set rngInsert = Union(rngInsert, Rows(I))
    Else
      Set rngInsert = Rows(I)
    End If
  Next
  rngInsert.Insert Shift:=xlDown
  Intersect(.Rows(1), .UsedRange).Interior.ColorIndex = 6
  Intersect(rngInsert, .UsedRange).Interior.ColorIndex = 6
End With
Application.ScreenUpdating = True
End Sub