Copy cell 6 times and paste the step and copy next cell

[saxjammin]

Help please I urgently need a a macro if possible to run this but if there is another way that is fine. I struggled yesterday to find a way.

I have a list of items in column AF4 to AF763 I need to copy each one 6 times into column AK4 and then step 20 the start of next one in list then repeat the same from AF5 down the list.

I can possibly do it if I can get the first one in list to copy and step 20 then copy the next in list to the end of list.

Thank you

 

[My Aswer Is This]

Are you saying you want to copy AF4 6 times
Then AF24 6 times

Is that why your saying Step 20?

 

[steve the fish]

Re: Help please urgently

See if this is anything close?

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

With Sheets("Sheet1")
    arr = .Range("AF4:AF763")
    ReDim arr2(1 To UBound(arr) * 20)
    For i = 1 To UBound(arr, 1)
        For j = 1 To 6
            arr2((i - 1) * 20 + j) = arr(i, 1)
        Next
    Next
    .Range("AK4:AK15203") = Application.Transpose(arr2)
End With

 

[saxjammin]

sorry no i want to copy AF4 6 times to column AK4 then I want to copy AF5 6 times but step 20 between them in column AK hope this is more understandable

 

[My Aswer Is This]

I still do not understand Step 20

What does Step mean?

Please try and use your words and not what you think the script needs to do.

Step ??

Do you mean you want 20 empty cells between each pasting.

 

[saxjammin]

Hi thanks for the reply after copy 6 times from first in list i want 20 blank rows before the next copy 6 times from second in list

 

[saxjammin]

sorry yes 20 empty cells between each pasting

 

[My Aswer Is This]

Try this:

Sub Copy_Range()
'Modified  6/7/2019  4:27:13 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim n As Long
n = 4
    For i = 4 To 763
        Cells(n, "AK").Resize(6).Value = Cells(i, "AF").Value
            n = n + 26
    Next
Application.ScreenUpdating = True
End Sub

 

[saxjammin]

sorry this may sound so crazy but how do i get this to run with a command button

 

[My Aswer Is This]

I have seen several of your last postings where you have been given scripts and you have said great that works perfectly.

So how did you install those scripts and it worked perfectly but you do not know how to install this script I just provided.