Copy A&B, Delete Row, Insert Date

[Ajohn403]

Hi, Again!
I'm working on a code to automate the long and boring process of archiving destroyed files.
My current code works perfectly other than one thing, when the code copies the row to the "destroyed" sheet I need it to also insert today's date
in column D of the row its copying the data to, And I can't seem to get that right.
How should I go about this?
Here's my code

Please Login or Register  to view this content.

Thanks for any help!

[Richard Buttrey]

Hi,

Maybe immediately after the .Copy instruction

Please Login or Register  to view this content.

[Ajohn403]

Thanks, Works great! I couldn't get it to skip blank cells when I tried myself

[Richard Buttrey]

Glad to have assisted and thanks for the rep.

[Ajohn403]

Glad to have assisted and thanks for the rep.

Actually i've run into an error
I added a bit of code so that it would delete the whole row including hidden columns instead of ignoring them, and it seems it only copies relative to the selection.
For example;
if i had a case number selected, rather than the name (in that same row) it would copy the case number and the cell next to it rather than the cells in columns A and B
(though, I don't know if this was an error before i added the column hiding / unhiding)
Any idea why?
Current code;

Please Login or Register  to view this content.

[Richard Buttrey]

Hi,

I find it difficult to understand what you mean without seeing your actual workbook and knowing exactly what you are doing when you encounter the problem. Please upload.

[Ajohn403]

Sorry for the REALLY late reply, but I've just returned to the office.

Heres an example worksheet; the button im working on is the "destroyed" button.
Example Doc.xlsm

Thanks for the help!

[Richard Buttrey]

Change the With line to

Please Login or Register  to view this content.

[Ajohn403]

Problem solved, thanks again, Richard!

[Richard Buttrey]

Glad to have helped and thanks for the rep.