Aktarmada Sorun

[rustemparlak]

Arkadaşlar kolay gelsin.
göndermiş olduğum ekli dosyada bulunan ekle butonunda belirlediğim sayfaya aktarma yapıyor, yalnız boşluk bırakıyor.
bazen 2 ürün bazen 5 ürün ve daha fazlası tablodaki bütün satırları dolduğum zaman sorun olmuyor ama az sayıda ürün girildiği zaman akatarılan sayfada boşluklar oluyor bu boşlukları gidermek mümkünmüdür?

 

[Ayhan Ercan]

Merhaba Sn rustemparlak

Sizin kodunuzdaki düzeltmeler renklendirilerek aşağıya çıkartılmıştır.
İnceleyiniz....

Sub aktar()
    Sheets("GİRİŞ").Select
    Range(Cells(2, "A"), Cells(Cells(65536, "[B][COLOR=red]F[/COLOR][/B]").End(xlUp).Row, "F")).Select
    Selection.Copy
 
    Sheets(Range("G2").Value).Select
    b = WorksheetFunction.CountA(ActiveSheet.Range("A1:a65536")) + 1
    
    Cells(b, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    Range("A1").Select
    Application.CutCopyMode = False
    
    Sheets("GİRİŞ").Select
    MsgBox "Veri Aktarma İşlemi [ " & Range("[COLOR=red][B]G2[/B][/COLOR]").Value & " ] Adlı sayfaya yapıldı.", vbOKOnly, "MAVİ ECZANE"
    Range("B2:B20").ClearContents
    Range("E2:F20").ClearContents
    Range("A2").Select
End Sub

 

[rustemparlak]

sayın:Ayhan Ercan

elinize sağlık çok teşekkür ederim.