Try this:

Sub Copy()
  Dim lRow As Long, rng As Range, i As Range
  lRow = Range("C65536").End(xlUp).Row
  Set rng = Range(Cells(1, 3), Cells(lRow, 3))

  a = 1
  For Each i In rng
     If i.Value <> "0" Then
        i.EntireRow.Copy Sheets(2).Rows(a)
        a = a + 1
     End If
  Next i
End Sub

--
Dan