yanyana verileri alt alta yazdıracak bir macro lazım

[croww]

arkadaşlar ben yanyana yazılmış olan verileri alt alta yapmak istiyorum
ama bu işlemi alt alta olan yaklaşık 500 satıra yapmak istiyorum
a dan h ye kadar hücrelerde firma bilgileri var bu satırı
sayfa1 den sayfa2 deki a sütunundan başlayarak firma aralarında birer satır boşluk bırakarak alt alta yazmak istiyorum
bu işlemi yapabilecek bir macro varmıdır.??
yardımlarınızı bekliyorum teşekkürler

 

[Necdet]

Lütfen örnek dosya ile sorunuzu destekleyiniz.

 

[croww]

örnek dosya

örnek dosya ekledim yardımlarınızı bekliyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodlar işinize yarayabilir belki. Bir modülle ilişkilendirmek gerek.

Sub Yazdir()
Application.ScreenUpdating = False
Set s2 = Sheets("Sayfa2")
s2.[A:A].Clear
Sat = 1
For i = 2 To 5  '[A65536].End(3).Row
    Range("A" & i & ":F" & i).Copy
    s2.Range("A" & Sat).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sat = Sat + 7
Next i
[A1].Select
MsgBox "İşlem Tamam...."
End Sub

 

[croww]

Sayın Necdetet Yeşertener yardımlarınıza teşekkür ederim.