过滤的单元格未粘贴到新工作表上

Question

Stuck at this annoying problem, I want to filter cells from a data in M_Sheet, select the filtered region of cells that have "New Code" in Range("x6") and paste it in a new sheet. For some reasons the cells are not copying or pasting

Set M_Sheet = Comp_Book.Worksheets("Sheet1")    'Comp_Book is a variable for a book currently open

M_Sheet.range("B6:F1835").AutoFilter Field:=6, Criteria1:="New Code"
M_Sheet.range("B6:F1835").SpecialCells(xlCellTypeVisible).Copy
'A code suggestion needed to paste the copied region in new a worksheet 
 starting from Column B

What i have tried

 Dim N_Sheet = Comp_Book.Worksheets("Sheet2)
 N_Sheet.cells(2,2).paste

Answer 1

AutoFilter feat. CurrentRegion and SpecialCells

The Code

Sub AutoFilterRange()
    Dim wb As Workbook: Set wb = Workbooks("Comp.xlsm")
    Dim src As Worksheet: Set src = wb.Worksheets("Sheet1")
    Dim rng As Range: Set rng = src.Range("B6").CurrentRegion
    rng.AutoFilter Field:=6, Criteria1:="New Code"
    Dim tgt As Worksheet: Set tgt = wb.Worksheets.Add
    rng.SpecialCells(xlCellTypeVisible).Copy
    tgt.Paste
    Application.CutCopyMode = False
    ' Show all data.
    'src.ShowAllData
    ' Turn off AutoFilter.
    'rng.AutoFilter
End Sub

Answer 2

This code assigns the range in Comp_Book.Sheet1 and sets a variable to a new worksheet. It will filter the range for "New Code" in Column G , and then copy visible cells in the range to the new worksheet. Comments are provided in the code.

Sub FilterRangeCopytoNewSheet()
    'Define your copy range and destination worksheet variables
    Dim cpyrng As Range: Set cpyrng = Comp_Book.Sheets("Sheet1").Range("B6:F1835")
    Dim destws As Worksheet: Set destws = Comp_Book.Sheets.Add(After:=Sheets(Sheets.Count))
    
        ThisWorkbook.Sheets("Sheet1").AutoFilterMode = False 'Clear any filter
            
            cpyrng.AutoFilter 6, "New Code" 'Field 6 will filter on Column G
                
            cpyrng.SpecialCells(xlCellTypeVisible).Copy destws.Cells(2, 2) 'Copy visible to new sheet
            
        ThisWorkbook.Sheets("Sheet1").AutoFilterMode = False 'Clear filter
End Sub