Copy every nth Row

[Retail_Therapy]

I need to copy columns A to D, down 4 rows until the next item (then down 4 rows for next item, and etc).

Is there an easy way to formulate drag down without manually going through every item? I have 5000+ unique items to drag down.

SS17	ANKLE BOOTS	D AUDALIES HIGH	D723XB0LC09C9999
SS17	SANDALS	D KENNITY MID	D625TG0SL9BC4007

<tbody>
</tbody>

 

[Retail_Therapy]

***Correction: title should be copy AND paste every nth row***

 

[D3allamerican07]

Retail_Therapy,

Pending your data is in Sheet1 and the data is in rows 1, 6, 11, etc. The following code should work perfect.

Sub CopyDown()

    lastRow = Range("A" & Rows.Count).End(xlUp).Row + 4
    i = 1
    j = 5
    
While i < lastRow

    Sheets(1).Range("A" & i & ":D" & i).Copy Sheets(1).Range("A" & i & ":D" & j)
    i = i + 5
    j = j + 5

Wend

End Sub

If the data is not in this format, please let me know or adjust accordingly.

Bill

 

[Fluff]

Hi & welcome to the board.
How about

Sub CopyDown()
    
    Dim UsdRws As Long
    Dim Cnt As Long
    
    UsdRws = Range("A" & Rows.Count).End(xlUp).Offset(4).Row
    
    For Cnt = 1 To UsdRws Step 5
        Range("A" & Cnt).Resize(5, 4).FillDown
    Next Cnt
    

End Sub

 

[Retail_Therapy]

Hi Bill,
Sorry I'm not too familar with codes,
Do I insert anything before/after the code you provided in my module?
Normally the codes I use have "sub ----" and "end sub" at the begining/end.

thank you very much for your assistance.

 

[D3allamerican07]

Retail_Therapy,

I edited it, it now includes the necessary information. You can now copy and paste into a module and click Run.

Bill

 

[Retail_Therapy]

Amazing!! Thank you. You saved me hours of extra work

 

[D3allamerican07]

No problem, glad it worked for you!

 

[Retail_Therapy]

Hi Bill,
What would be the code if I'm only dragging 1 column (ie: Column A).

thank you,
Kim

 

[D3allamerican07]

Kim,

Try:

[COLOR=#333333]Sub CopyDown()[/COLOR]
    lastRow = Range("A" & Rows.Count).End(xlUp).Row + 4
    i = 1
    j = 5
    
While i < lastRow

    Sheets(1).Range("A" & i).Copy Sheets(1).Range("A" & i & ":A" & j)
    i = i + 5
    j = j + 5

Wend
 [COLOR=#333333]End Sub[/COLOR]