Sub ПадаютПадаютПадаютЛистья()
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
    
    Dim iY As Long
    Dim sh As Worksheet
    Dim s As String
    
    Set sh = ActiveSheet
    
    With sh
        For iY = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 20
            Worksheets.Add After:=Sheets(Sheets.Count)
            s = CStr(iY) & "-" & CStr(iY + 19)
            On Error Resume Next
                Application.DisplayAlerts = False
                Sheets(s).Delete
                Application.DisplayAlerts = True
            On Error GoTo 0
            Sheets(Sheets.Count).Name = s
            .Cells(iY, 1).Resize(20).Copy Sheets(s).Cells(1)
        Next
    End With

    sh.Select
    
    With Application
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With

End Sub