Thread: Paste in new blank row

Hi,
I have this code:

Sub CopyComplete()


Dim v
j = 8

For i = 1 To 65536
If Sheets("UW_Rnls").Cells(i, 15) = "Complete" Then

v = Sheets("UW_Rnls").Cells(i, 15).EntireRow

Sheets("Proc_Rnls").Cells(j, 1).EntireRow = v

Sheets("UW_Rnls").Cells(i, 15).EntireRow.Delete (xlShiftUp)

j = j + 1
End If
Next i

End Sub
_______________

However, every time you run the code when data is already on the "Proc_Rnls" sheet, is over-rights the existing data. Please help!