Make duplicates of rows, 4 colums.

Found several posts about how to make duplicates but all of them only made duplicates of 1 colum.

I got 4 colums and 80 rows and I wanna just make duplicates of all of them.

Any VBA code for that or another simple trick?

Ah Sorry, I've read it now and will do it better in the future! Did you have any solution for my issue with code?

Originally Posted by alansidman

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(Because you are new to the forum, I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

Does this help?

Sub Challebjoern()
Dim i As Long, x As Long
For i = Range("A" & Rows.Count).End(3).row To 2 Step -1
    x = 2
    Do Until x = 1
    Range(Cells(i, "A"), Cells(i, "D")).Copy
    Cells(i, "A").Insert xlDown
    x = x - 1
    Loop
Next i
End Sub

Hey John. That does the trick! Thanks alot.

Originally Posted by JOHN H. DAVIS

Does this help?

Sub Challebjoern()
Dim i As Long, x As Long
For i = Range("A" & Rows.Count).End(3).row To 2 Step -1
    x = 2
    Do Until x = 1
    Range(Cells(i, "A"), Cells(i, "D")).Copy
    Cells(i, "A").Insert xlDown
    x = x - 1
    Loop
Next i
End Sub

You're welcome. Glad to help out and thanks for the feedback. Please mark this thread as SOLVED: Click Thread Tools above your first post, select "Mark your thread as Solved"