excelde birden fazla satırı tek satırda toplamak istiyoru

[arcadia]

selam

excel de birden fazla satırı yeni bir sayfaya tek satır olarak kopyalamak istiyorum normalde bu işlemi jobmaster ile yada txt olarak yapmak mümküm fakat zorlandığım nokta şu ki her hücredeki bilginin sonuna ek olarak sütun başlıklarını koymak istiyorum makro seçmemdeki amaç bu.

çok iyi bilmediğim bir konu fakat forumu incelediğim kadarı ile sadece gelebildiğim nokta bu;

Sub SatırBirleştir()
Dim YeniSayfa As Worksheet
Dim SayfaSay

SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
B = Worksheets(i).UsedRange.Row
A = Worksheets(i).UsedRange.Rows.Count
Worksheets(i).Range("a" & B & ":e" & A + B).Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
End With
End Sub


netice, yeni sayfaya tamamı kopyalanıyor, yardımınızı rica ediyorum.
alta basit bir taslak oluşturmaya çalışacağım,

--A--B--C--D--E------------A
1 at al an al l-----------1 atA alB anC alD lE
2 li em üş---------------2 liA emC üşD

Þimdiden teşekkür ederim.