Sub Macro() Dim Jk As Integer Dim maxJg As Integer Jkg = 1 maxJkg = 15 Call mkNewSheet ActiveWorkbook.Worksheets("リス").Activate Range("A2").Activate Do Until ActiveCell = "" ActiveCell.Offset(1, 0).Activate Jkg = Jkg + 1 If Jkg Mod maxJkg = 0 Then Call mkNewSheet Loop End Sub