Runtime error 1004 - help needed!

[i||uSi0n^]

Hi,

I have the following macro, which is suppose to copy a row that is set to "VERIFIED" to the archive worksheet.
The code is in "Module 1" the sheet where it has to copy from has name "WBO INFO" and the sheet where it needs to copy to "Archives" and clear that row (actually delete that row would be better if possible)
Number of columns are 15 and "VERIFIED" is on column "O"

So I select the cell with value "VERIFIED" in "WBO INFO" sheet and run macro and I get error "Runtime error 1004: Application-defined or object-defined error". on lines:

Destination:=Worksheets("Archives").Cells(1, 1).End(xlDown).Offset(1, 0)
ActiveCell.Offset(0, -14).Range("A1:O1).ClearContents


Complete code:

Sub Archive()

If ActiveCell.Value = "VERIFIED" Then
ActiveCell.Offset(0, -14).Range("A1:O1").Copy _
Destination:=Worksheets("Archives").Cells(1, 1).End(xlDown).Offset(1, 0)
ActiveCell.Offset(0, -14).Range("A1:O1).ClearContents
End If
End Sub

Thanks,

i||uSi0n^

[romperstomper]

1. Please use code tags.
2. Better to use xlUp rather than xlDown:

Please Login or Register  to view this content.

Otherwise, if A2 is blank, your xlDown takes you to the last row of the sheet and then you try and offset one row below that.

[i||uSi0n^]

OMG thanks!!! it works now...amazing lol

Can you also help with instead of clearing content of the row to simple delete the row after content has been copied to "archives" sheet

Thanks!

1. Please use code tags.
2. Better to use xlUp rather than xlDown:

Please Login or Register  to view this content.

Otherwise, if A2 is blank, your xlDown takes you to the last row of the sheet and then you try and offset one row below that.

[i||uSi0n^]

Hum it seems that each time I archive the row it overwrites the first row on "Archives" sheet, meaning instead of taking the next empty row it is always using the first row...

[romperstomper]

For example:

Please Login or Register  to view this content.

[i||uSi0n^]

Perfect! thanks a bunch, issue is completely solved!!!!

[romperstomper]

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.