Çözüldü Sekme değiştirmeden kopyala yapıştır yapma

[bthn35]

Merhaba,
Kullandığım excel boyutu büyük olduğu için aşağıdaki makroyu uygularken sekme değiştirip gidip yapıştırıp sonra tekrar sekmeye geri gelmesi 1dk civarında sürüyor.
GELEN-GIDEN sekmesindeyken kopyala/yapıştır yaparken GIRIS-CIKIS sekmesine gitmeden yapılabilir mi?

On Error Resume Next
    Sheets("GELENGIDEN-").Range("A2:M40").Copy
    Sheets("GIRIS-CIKIS").Select
    Range("A1:U1").Application.Goto Reference:="R5000C1"
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    Sheets("GELENGIDEN").Select

 

[Muzaffer Ali]

Merhaba.

    Sheets("GELENGIDEN").Range("A2:M40").Copy
    Sheets("GIRIS-CIKIS").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[bthn35]

Teşekkür ederim