Transfer data from multiple sheets to sheet 1 based on criteria

Sub CopyData()

Application.ScreenUpdating = False

    Dim ws As Worksheet
    Dim lRow As Long
    
Sheets("Estimate").Range("A3:G" & Rows.Count).ClearContents

For Each ws In Worksheets
    If ws.Name = "Estimate" Then GoTo NextSheet
    
    ws.Select
    
lRow = Range("A" & Rows.Count).End(xlUp).Row
    
    For Each cell In Range("A2:A" & lRow)
        If cell.Value > 0 Then
            Range(Cells(cell.Row, "A"), Cells(cell.Row, "G")).Copy
            Sheets("Estimate").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
        End If
    Next cell

NextSheet:
Next ws

Sheets("Estimate").Select
Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub