copy range of cells from column, paste and offset

[saxjammin]

Can anyone help with this please I have reference data in column AM4:AM4563 starting from AM4 I need to extract 6 rows and paste into AW4 and then leave 4 blank rows then repeat from the next 6 in the reference list

please see image example

https://www.dropbox.com/s/gssr2pz7psua5o2/sort_list(1).png?dl=0

 

[steve the fish]

You already asked this question the other day. Please use that thread.

 

[saxjammin]

sorry i have reworded it bcz i did not get response so how do i use the other thread with new post, do i delete this one and post again to old thread.

 

[steve the fish]

There are 4 responses since you last answered to the thread. So in what was did you not get a response? It seems that you ignored the responses to me.

 

[saxjammin]

apologies it is my mistake, i don't do this purposely i am just trying to get help, sorry if i did not use it in the right way, thank you for your reply last week but i am having trouble with the With sheets ("sheet1")


Dim arr, arr2, i As Long, j As Long

With Sheets("Sheet1")
arr = .Range("AF4:AF763")
ReDim arr2(1 To UBound(arr) * 26)
For i = 1 To UBound(arr, 1)
For j = 1 To 6
arr2((i - 1) * 26 + j) = arr(i, 1)
Next
Next
.Range("AK4:AK19763") = Application.Transpose(arr2)
End With</pre>

 

[steve the fish]

You have to change that to the appropriate sheet name for your workbook where the range in question is housed.

 

[saxjammin]

it is sheet1

 

[steve the fish]

So whats the trouble??

 

[saxjammin]

when i try to run it it stops on With sheetw ("sheet1") and comes up with the message compile error invalid outside procedure

 

[steve the fish]

You need to name the sub. eg

Sub Macro1()

'code here

End Sub