Converting Each line to 4 line (to preparing data to make a discrete choice model)

Dear friends,
I hope you have a good time.

I have attached a xlsx file. this file contain 2 worksheets. In work sheet "basic" I want to add 3 line after each line and inserting the amount of YC , Yd, YT in them. The amount of other columns (E to O) will be the same for each 4 line. I have done this procedure for line 2 and put it in worksheet "converted" as an example.

I dont know how to do this procedure for all lines and I'm really sorry to bother you. Would you mind helping me?

Thanks alot

thank you JBeaucaire , It's amazing

Originally Posted by JBeaucaire

Like so:

Option Explicit

Sub RowsToMultiRows()
Dim LR As Long, RW As Long

Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row

For RW = LR To 2 Step -1
    Range("A" & RW).EntireRow.Copy
    Range("A" & RW + 1).Resize(3).EntireRow.Insert
    Range("B" & RW).Resize(, 3).Copy
    Range("A" & RW + 1).PasteSpecial xlPasteValues, Transpose:=True
Next RW

Range("B:D").Delete xlShiftToLeft
Application.ScreenUpdating = True
End Sub

How/Where to install the macro:

1. Open up your workbook
2. Get into VB Editor (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste in your code (given above)
5. Get out of VBA (Press Alt+Q)
6. Save as a macro-enabled workbook (.xlsm)

The macro is installed and ready to use. Press Alt-F8 and select it from the macro list.

What modifications should be applied to the code, if I want to do the same thing to the same file, but for the first two columns (instead of the first four columns)?