Soru Makro ile sadece seçili hücreleri kopyalama

[Seli]

Merhaba arkadaşlar,
Kodu aşağıda paylaşıyorum, farklı sayfalarda yaptığım işlemler var bunun için subtotal aldırıp sadece seçili olan hücreleri başka sayfaya kopyalamak istiyorum. Kod bu şekilde sadece görünenleri alıyor ancak A1:B1000 yine seçiliyor. Örneğin grand total ve altını da seçiyor. Nasıl yapabilirim, şimdiden teşekkürler..

Sub Macro3()
Dim y As Single
    Range("A2:F2").Select
    Selection.AutoFilter
    Range("B:B,F:F").Select
    Range("F1").Activate
    Selection.Copy
    Ad = Sheets(Worksheets.Count).Name
Sheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = "Toplam brüt"
    'Sheets.Add After:=ActiveSheet
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    y = Sheets("Toplam brüt").Cells(Rows.Count, "B").End(xlUp).Row

    
    Sheets("DETAY").Select
    Range("B:B,E:E").Select
    Range("E1").Activate
    Selection.Copy
    'Sheets.Add After:=ActiveSheet
     Ad = Sheets(Worksheets.Count).Name
Sheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = "M-KG"
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Subtotal GroupBy:=1, Function:=xlAverage, TotalList:=Array(2), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Sheets("Toplam brüt").Select
    Range("A1:B1000").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("MIP").Select
    Range("A8").Select
    ActiveSheet.Paste
    Sheets("M-KG").Select
    Range("A1:B1000").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C2").Paste
    Range("D2:D").Copy
    
    Sheets("MIP").Select
    Range("C8").Select
    ActiveSheet.Paste

 

[Korhan Ayhan]

Bu tarz sorularınızı örnek dosya ile desteklerseniz yardım almanız kolaylaşır.