Bu makro neden satırları sütuna çevirerek aktarma yapıyor?

[akmlyx]

Sub Düğme1_Tıklat()
'
' Düğme1_Tıklat Makro
'

'

Sheets("Maaş Hesaplama").Select
Dim say As Integer
Set S1 = Worksheets("Maaş Hesaplama")
Set S2 = Worksheets("Maaş Arşivi")
say = WorksheetFunction.CountA(S2.Range("a1:e65536"))
Sheets("Maaş Hesaplama").Select
S1.Range("f11:z15").Copy
S2.Cells(say + 6, 5).PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = True

MsgBox ("Maaş bilgileri Arşive aktarıldı.")
End Sub

Değerli Arkadaşlar Merhaba, yukarıdaki makro satırları sütuna çevirerek aktarma yapıyor, benim istediğim ise satırları sütuna çevirmeden aktarma yapması mümkün müdür acaba? Teşekkür ederim.

 

[Merhum İdris SERDAR]

.

"Transpose =True" bu yapıyor. False yapın.

.

 

[akmlyx]

İdris SERDAR hocam, verdiğiniz bilgiyi yaptım sorun çözüldü. TEŞEKKÜR EDERİM.