[Macro] Compare two columns, if cells differents, copy and delete cell

Good afternoon to all

I am stuck now for a whole day on creating a macro. I am actually quite a novice regarding VBA and so would really appreciate somebody to give me a hand with this.

In the attached file, I have three columns, with the third showing discrepancies between the two firsts. Column A and C contain the same values + differences that I must highlight.

What I am looking to do is that if value in E2 is negative, then copy/paste A2 in I2 and once pasted, delete cell A2 (moving cells up).
However, if E2 is positive, then copy/paste C2 in J2 and once pasted, delete cell C2 (moving cells up).
Then only make sure difference formula in E column is correct by copying from original cell E1 (should be done like this I think):

Range("E1").Select
Selection.AutoFill Destination:=Columns("E:E")
Columns("E:E").Select

Then only do the same for the next lines.

This should result in having columns A and C completely equals and the different cells shown on the side.

I hope my explanations are clear enough for you to understand, and I really thank in advance whoever will be able to help me with this.

Cheers !

Thanks for your reply Patel45,

No actually I really mean cell A only.

The final result of all this is to have the exact same amounts in both columns A and C but keeping a track of all discrepancies found in every column.
Now if you take a look at the attachment, E2 is showing a negative value. I then need the macro to copy/paste A2 in I2.
Then by deleting A2 once pasted, new value in A2 will be the previously A3 value, which means 19 and A2 will now match with C2.

Next discrepancy will now be shown in line 5 ...

I hope I'm clear enough now otherwise tell me and I'll try to go further into details.

Example.xlsm

Thanks Patel45, actually it works now, my only concern is that I have a pop up at the end showing "Error 13 : Incompatibility type" ...

Although the work is done perfectly, this comes back every time on this sequence : "If Cells(r, 1) - Cells(r, 3) < 0 Then"

I don't know why ... Attached is a copy of my file if someone can help, I don't understand !

Thanks

This time it works perfectly !

Thank you sincerely Patel45, you rule

Skuz