Deselect specific columns from filtered rows

[Gaurangg]

Dear Folks,

I am trying to select specific columns from the filtered data but it select the all the columns. Can anyone help with the changes in my code.

In my below code, it selects from A to P but I want to select A to N only. Please anyone can help where I can make changes into my code.

Sheets("MyWork").Select
    Rng2 = Sheets("MyWork").Range("O210").End(xlUp).Row
    Range("P4").Select
    Range("$A$4:$P" & Rng2).AutoFilter Field:=16, Criteria1:="0"
    
    Range("A4:P" & Rng2).Select
    ActiveCell.Offset(1, 0).Select
    Do Until ActiveCell.EntireRow.Hidden = False
        ActiveCell.Offset(1, 0).Select
    Loop
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    
    Selection.Copy

 

[mrshl9898]

Sheets("MyWork").Select    
Rng2 = Sheets("MyWork").Range("N210").End(xlUp).Row
    Range("N4").Select
    Range("$A$4:$N" & Rng2).AutoFilter Field:=14, Criteria1:="0"
    
    Range("A4:N" & Rng2).Select
    ActiveCell.Offset(1, 0).Select
    Do Until ActiveCell.EntireRow.Hidden = False
        ActiveCell.Offset(1, 0).Select
    Loop
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    
    Selection.Copy

 

[Gaurangg]

Hi Mrshl,

Thanks for your reply. However I is not working. Coz the data points are available from column A to P and filteration criteria need to select from Column P however need to copy the data from column A to N only. I don't want to copy the column O and P as these columns contains some valid checks.

 

[Fluff]

Not entirely sure what you are trying to do, but if you simply want to copy the visible cells, try

    Dim Rng As Range
    
    Sheets("MyWork").Select
    rng2 = Range("O210").End(xlUp).Row
    Range("P4").Select
    Range("A4:P" & rng2).AutoFilter Field:=16, Criteria1:="0"
    On Error Resume Next
    Set Rng = Range("A5:N" & rng2).SpecialCells(xlVisible)
    On Error GoTo 0
    If Not Rng Is Nothing Then
        Rng.Copy
    Else
        MsgBox "Nothing to copy"
    End If