Create Multiple Worksheets and Copy data from Raw File 30 rows at a time and Paste to Newly created worksheets

[johnalmaquer]

Hoping someone could help me out. I have 17,000 rows and I need to copy 30 rows at a time under the header and paste those rows on the worksheet named Page 1 on row 13 column B. Then create a copy of Page 1 worksheet, rename it to Page 2 then copy the next 30 rows, repeat the same exercise after all rows have been copied.

My concern is that, I'm not sure if Excel can

shorturl.at/aqAI8

Anyone's assistance would be greatly appreciated.

 

[Fluff]

HI Rename the Page 1 sheet to Template & try

Sub johnalmaquer()
   Dim i As Long, j As Long
   Dim Ws As Worksheet
   
   Application.ScreenUpdating = False
   Set Ws = Sheets("Template")
   With Sheets("Raw File")
      For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row Step 30
         j = j + 1
         Ws.Copy , Sheets(j + 1)
         ActiveSheet.Name = "Page " & j
         Range("B13").Resize(30, 7).Value = .Range("A" & i).Resize(30, 7).Value
      Next i
   End With
   MsgBox "Complete"
End Sub

 

[johnalmaquer]

@Fluff. You are heaven sent! Thank you so much. It worked great!

 

[Fluff]

You're welcome & thanks for the feedback