Sub bla()
x = 1
For i = 1 To Sheets(1).Range("A65536").End(xlUp).Row
    If Sheets(1).Range("A" & i).Value <> 0 Then
        Sheets(1).Rows(i).Copy
        Sheets(2).Range("A" & x).PasteSpecial xlAll
        x = x + 1
    End If
Next
End Sub