VBA - Copy Range - New Sheet - Paste in new Sheet - Continue

[Trent452]

Hi All,

Hope everyone is well,

I require help with the following,

I have a sheet called data, which contains data exported from a piece of equipment.
I would like to breakdown this sheet into multiple sheets.

I require to create a copy of sheet '1', copy A15;E46 from 'Data', paste this into cell B15 of the new worksheet
then create a new copy of "sheet1", move to end of the workbook, go back to "Data" copy (the next 32) A47;E78, and paste this into B15 of the new worksheet
repeat this process until the last cell with value in "Data". So in the end I will have multiple sheets, each displaying 32 results from the "Data" sheet.

Link to a completed sheet

Thanks to everyone in advance.

 

[Fluff]

How about

Sub Trent452()
   Dim i As Long, j As Long
   Dim Ws As Worksheet
   
   Set Ws = Sheets("Data")
   For i = 15 To Ws.Range("A" & Rows.Count).End(xlUp).Row Step 32
      j = j + 1
      Sheets.Add(, Sheets(Sheets.Count)).Name = j
      Ws.Range("A" & i).Resize(32, 5).Copy Range("B15")
   Next i
End Sub

 

[Trent452]

Thanks, it works, however it does not make a copy of sheet "1". This sheet will have the the table and letterhead that the values shall be pasted into.

 

[Fluff]

What is the actual name of the sheet you want to copy & what should it be renamed too?

 

[Trent452]

Sorry for not explaining it well enough, your code worked perfectly. I just changed it for the sheet as follows:

Sub Trent452()
   Dim i As Long, j As Long
   Dim Ws As Worksheet
   
   Set Ws = Sheets("Data")
   For i = 15 To Ws.Range("A" & Rows.Count).End(xlUp).Row Step 32
      j = j + 1
      Sheets("1").Select
      Sheets("1").Copy After:=Sheets(Sheets.Count)
      Ws.Range("A" & i).Resize(32, 5).Copy Range("B17")
   Next i
End Sub

Really appreciate the help.

 

[Fluff]

Glad you sorted it & thanks for the feedback