Copy and paste rows at specific intervals

[Serdarrk]

Hello,

In the following file, there are datas which changes every 241 rows. My aim that take every 241 row and paste side by side with a blank row between each of them. I tried to show in Sayfa2 what I want.

https://www.dropbox.com/s/l5jufqiejcs0qpq/asdsacsa.xls?dl=0

 

[Fluff]

How about

Sub splitRows()

   Dim i As Long, j As Long
   
   j = 1
   For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 241
      Range("A" & i).Resize(241, 3).Copy Sheets("Sayfa2").Cells(1, j)
      j = j + 4
   Next i
End Sub

 

[Serdarrk]

Thank you for your interest and help.

 

[Fluff]

Your welcome