aktarma - kopyalama

[excellcan]

Forumda emeği geçen tüm arkadaşlara merhaba. Arkadaşlar makroyu daha yeniyeni öğreniyorum. Aşağıdaki kodda nasıl bir yanlışlık vardır ki altalta değil de hep aynı yere kopyalıyor. Yapmak istediğim sayfa 1 de seçmiş olduğum aralığı altalta Depo ismli sayfaya kopyalayacak. 5 satır seçiyorum hep aynı yere kopyalıyor. Yardımcı olan arkadaşlara şimdiden teşekkürler.

Sub SEÇ_TAŞI_DEPO()
Dim j As Integer

j = [k65536].End(3).Row + 1
Sheets("sayfa1").Select
Range("j11:ae16").Copy
Sheets("DEPO").Select
j = [k65536].End(3).Row + 1
Range("k14").Select
Selection.PasteSpecial Paste:=xlPasteValues
j = j + 14
[K1].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı...."
End Sub

 

[Orion1]

Sub SEÇ_TAŞI_DEPO()
Dim j As [B][COLOR="red"]long[/COLOR][/B]
j = [k65536].End(3).Row + 1
Sheets("sayfa1").Select
Range("j11:ae16").Copy
Sheets("DEPO").Select
j = [k65536].End(3).Row + 1
Range("k" [B][COLOR="Red"]& j[/COLOR][/B]).Select
Selection.PasteSpecial Paste:=xlPasteValues
j = j + 14
[K1].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı...."
End Sub

 

[excellcan]

hocam teşekkürler