Copy Paste Row To A New Worksheet

Hi everyone
i am stuck with this problem, i have 40 lines in my excel spreadsheet..how can i do a macro that it will copy and paste line 1 to 18 to one worksheet and then 19 to 36 to another worksheet and then 37 to the remaining to another worksheet all within the same workbook. i am thinking of doing a loop that is something like this except my example below is not dynamic nor is a loop

Rows("6:23").Select
Application.CutCopyMode = False
Selection.Cut
Sheets.Add After:=Sheets(Sheets.Count)
Range("A6").Select
ActiveSheet.Paste

Sheets("Sheet1").Select
Rows("24:41").Select
Selection.Cut
Sheets.Add After:=Sheets(Sheets.Count)
Range("A6").Select
ActiveSheet.Paste