Range wrong number of arguments or invalid property assignment
<p>I'm trying to copy selected cells to another sheet, but I'm always getting error message: Wrong number of arguments or invalid property assignment</p>

<p>This code checks if "Cells(i, 20)" is less or greater than "Cells (i, 4)" by 10%. If it's not, it deletes the row, if it is it should copy selected cells to another sheet starting 48 row.</p>

<p>Maybe someone could point out, what I'm doing wrong here? Here's how my code looks like:</p>

<pre><code>Sub CopyHighLow()
Sheets("ProductionHighLow").Select
i = 2
j = 48
produced = 0
While Cells(i, 1) &lt;&gt; "" Or Cells(i + 1, 1) &lt;&gt; ""
  produced = Cells(i, 20)
  ordered = Cells(i, 4)
  If Cells(i, 20) &gt; Cells(i, 4) * 0.9 And Cells(i, 20) &lt; Cells(i, 4) * 1.1 Then
    Cells(i, 22).Delete Shift:=xlUp
    i = i - 1
  Else
    Range(Cells(i, 1), Cells(i, 2), Cells(i, 3), Cells(i, 4), Cells(i, 20)).Select
    Selection.Copy Destination:=Sheets("Rytinis").Range(Cells(j, 1), Cells(j, 2), Cells(j, 3), Cells(j, 4), Cells(j, 5))
    j = j + 1
  End If
  i = i + 1
Wend
End Sub
</code></pre>

<p>UPDATE here is working modified version:</p>

<pre><code>Sub CopyHighLow()
Sheets("ProductionHighLow").Select
i = 2
j = 48
produced = 0
While Cells(i, 1) &lt;&gt; "" Or Cells(i + 1, 1) &lt;&gt; ""
        produced = Cells(i, 20)
        ordered = Cells(i, 4)
        If Cells(i, 20) &gt; Cells(i, 4) * 0.9 And Cells(i, 20) &lt; Cells(i, 4) * 1.1 Then
             Cells(i, 22).Delete Shift:=xlUp
             i = i - 1
        Else
           Set RangeUnionCopy = Union(Cells(i, 1), Cells(i, 2), Cells(i, 3), Cells(i, 4), Cells(i, 20))
           Set RangeUnionPaste = Union(Cells(j, 1), Cells(j, 2), Cells(j, 3), Cells(j, 4), Cells(j, 5))
           RangeUnionCopy.Copy Destination:=Sheets("Rytinis").Range(RangeUnionPaste.Address)
            j = j + 1
        End If

i = i + 1
Wend
End Sub
</code></pre>