Tekil Kodları Ardışık Sıralama

[holocaust54]

Merhaba,
"Soru" sekmesine başka sekmede oluşturduğum tekil kodları sıralamak istiyorum. Mesela diğer sekmede üretilen x kodundan 2 tane y kodundan 3 tane z kodundan 1 tane üretmek için "Evet" ve adetleri birlikte girildikten sonra, "Soru" sekmesinde soldaki gibi oluşturuyor. Ama sağdaki gibi ardışık sıralansın istiyorum.

1 x => 1 x
1 x => 2 x
2 y => 3 y
2 y => 4 y
2 y => 5 y
3 z => 6 z

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 12 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Range("k" & Target.Row).Value = "" Then Exit Sub
If Range("k" & Target.Row).Value = "Hayır" Then Exit Sub
If Range("k" & Target.Row).Value = "Evet" Then
sonsatir = Sheets("SORU").Range("a65536").End(3).Row + 1
sayi = Range("l" & Target.Row).Value - 1
Sheets("SORU").Range("a" & sonsatir & ":a" & sonsatir + sayi).Value = Range("a" & Target.Row).Value
Sheets("SORU").Range("b" & sonsatir & ":b" & sonsatir + sayi).Value = Range("e" & Target.Row).Value
End If
End Sub