Thread: Copying the values from a sheet if the values match

Here are a couple ways, Could use more information or example workbook.

Sub zero()
Dim cell As Object
Dim r As Range
Dim lrow As Long
Dim ThatRow As Long
Application.ScreenUpdating = False
ThatRow = Sheets(2).Range("A65536").End(xlUp).Row + 1
    lrow = Range("A65536").End(xlUp).Row
        Set r = Range("A2:A" & lrow)
            For Each cell In r
                If cell.Value > 0 Then
''''This copies entire row to sheet 2
                    'cell.EntireRow.Copy Destination:=Sheets(2).Range("A" & Thatrow)
           'or
 
''''This Copies A:D to sheet 2
                    Range(cell, cell.Offset(, 4)).Copy Destination:=Sheets(2).Range("A" & ThatRow)
                ThatRow = ThatRow + 1
                End If
            Next cell
Application.ScreenUpdating = True
End Sub