Copy Range Of Cells To Another Sheet

I have a workbook with 18 sheets. on each sheet there is a column titled "quantity". I've created a 19th sheet to display all rows with a quantity of greater than zero. This is a prototype of a positive test for a value other than zero, and copy the data to the 19th sheet. Here is what I've written.


Sub Test1()

Sheets("SING PLY").Select
Dim row As Integer
row = 31
Dim column As Integer
column = 2
If Sheets("SING PLY"). Cells(row, column) <> 0 Then
Sheets("Buy Out").Range(Cells(31, 1), Cells(31, 6)).Value = Sheets("SING PLY").Range(Cells(31, 1), Cells(31, 6)).Value

End If

End Sub

The error is


Run-time error '1004":
Application-defined Or object-defined error

I'm using the Cells object because this is eventually going to run as a loop and I need a way to increment the values.