makromun baştan 3 satırı boş bırakmasını istiyorum.

[kgc400]

Aşağıdaki makroda 1. sayfadaki satırları 2. sayfaya ters düz ederek kopyalıyorum.fakat bu makro ikinci sayfanın tamamını temizleyip yapıştırıyor.ben başka veriler girmek için ikinci sayfada ilk 3 satırın boş kalmasını istiyorum.teşekkür ederim.

Sub aktar()

Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.ClearContents
Application.ScreenUpdating = False
Set s1 = Sheets("sheet2")
Set s2 = Sheets("sheet3")
For a = 1 To s1.[b65536].End(3).Row
s1.Select
s1.Range(Cells(a, "a"), Cells(a, "T")).Copy
say = WorksheetFunction.CountA(s2.[a:a]) + 1
s2.Cells(say, "a").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next
s2.Select
s2.[a:a].EntireColumn.AutoFit
Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlUp)).Select
    Application.CutCopyMode = False
    Selection.Copy

End Sub

 

[Selçuk1]

sn. kgc400;

aşağıdaki değişikliği yaparsanız sanırım istediğiniz gerçekleşecektir.

[LEFT]Sub aktar()[/LEFT]
 
[LEFT][COLOR=#ff0000]Range("A4:A65536").ClearContents[/COLOR]
Application.ScreenUpdating = False
Set s1 = Sheets("sheet2")
Set s2 = Sheets("sheet3")
For a = 1 To s1.[b65536].End(3).Row
s1.Select
s1.Range(Cells(a, "a"), Cells(a, "T")).Copy
say = WorksheetFunction.CountA(s2.[a:a]) + 1
s2.Cells(say, "a").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next
s2.Select
s2.[a:a].EntireColumn.AutoFit
Selection.End(xlDown).Select
   Range(Selection, Selection.End(xlUp)).Select
   Application.CutCopyMode = False
   Selection.Copy[/LEFT]
 
[LEFT]End Sub[/LEFT]