dolu hücrelere göre satır çoğaltma

[sorucu]

merhaba
ekteki excelde bir satırlık örnek var.
yapmak istediğim şu:

A1 hücresindeki değeri, sağındaki dolu hücrelerdeki değerleri alarak yatay olarak çoğaltılması.

**mavi renkli hücreler şu andaki halidir.
yeşil boyalı hücreler ise olması gereken şeklidir.
yardımlarınız için teşekkür ederim.

 

[dellerlim]

Merhaba. Bu kodları bir modüle yapıştırıp çalıştırınız.

Sub sorucu()
Application.ScreenUpdating = False
Sheets("TOPLAM").Range("a4:b100").ClearContents
For i = 2 To 32
If Cells(1, i) > 0 Then
sonsatir = ThisWorkbook.Worksheets("Sayfa1").Range("b65536").End(xlUp).Row + 1
Cells(sonsatir, 1) = Cells(1, 1)
Cells(sonsatir, 2) = Cells(1, i)
End If
Next i
Application.ScreenUpdating = True
End Sub