VBA Copy Question

[O177812]

HI I have data on a sheet (SHEET1) and I want to copy SOME of the data on a different sheet (SHEET2)

I am looking for VBA Code that will search Sheet1 in Column AO and if a cell contains a 0 then it will copy the coresponding value in Column A onto a list that starts in cell A2 on Sheet2.

Help is Appreciated!

 

[MARK858]

Try either (please note you must have headers in Sheet1)

Sub xsx2()
   With Sheets("Sheet1").Range("A1:AO" & Sheets("Sheet1").Range("AO" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=41, Criteria1:="0"
        
        On Error Resume Next
    .Columns(1).Offset(1).Resize(.Rows.Count - 1).SpecialCells(12).Copy _
    Sheets("Sheet2").Range("A2")
        On Error GoTo 0
        .AutoFilter
    
    End With
End Sub

or if you are actually after the next blank row in Sheet2

Sub xsx2()
   With Sheets("Sheet1").Range("A1:AO" & Sheets("Sheet1").Range("AO" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=41, Criteria1:="0"
        
        On Error Resume Next
    .Columns(1).Offset(1).Resize(.Rows.Count - 1).SpecialCells(12).Copy _
    Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
        On Error GoTo 0
        .AutoFilter
    
    End With
End Sub