Sütunları Satırların altına almak

[asistaniskender]

Üstadlar selam,

100 satırda 100 sorunun yer aldığı bir excell dökümanım var.
soruların cevap şıklarını ne yazık ki sorunun altına değil de sağında ayrı sütuna yazmışlar. ekte döküman mevcut.

hangi formül ile her bir sorunun(satırın) altına 4 satır daha ekleyip, sütunlardaki 4 şıkkı da buraya otomatik olarak aldırırım ?

ilginiz için şimdiden çok teşekkür ederim

 

[snx111]

formül kurtarmaz makro gerekir ..

 

[snx111]

Sub sırala()
ison = Cells(Rows.Count, 1).End(xlUp).Row
e = 7
ek = 5
w = 3
Application.ScreenUpdating = False
 Rows(w).Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    
    Range("C2:F2").Select
    Selection.Copy
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    
For q = 1 To ison * 4
w = w + ek

 Rows(w).Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
 
Range("C" & e & "  : " & "F" & e).Select
e = e + ek
Selection.Copy
Range("B" & w).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
' w = w + ek
Next
Application.ScreenUpdating = True
MsgBox " zımba"
End Sub