If ("Q") = "Text" then multiple functions help (2007)

[Excelnoub]

Good evening everyone,
I have an unfinished VB code that is troubling to me and trying different things.
I am trying to make the code work as follow:

I have a validation list in column “Q”.

If “amd” is selected then,

Look what is inserted in Column M then copy and paste the information in Column R by adding a /001 at the end.

Then add a new entire row (below) then look for what is inserted in Column M then copy and paste the information in the next row in column M but by following the number from the row above.

Therefore, if the row above is test/001/HS, then add the next number to the next row as follows, Test/002/HS, this must be inserted in the next row that was created.

On this new row it must copy the information and, I presume, an offset from Column A to K. The main row that was selected must then transfer itself to a sheet called “Archives” from column A to X to the next available row in this “Archives” sheet. I have a clear code and sort code together that I want to insert afterward.

I am playing with a pass code that I am using within my sheets that I need it to do what is mentioned above.

Please Login or Register  to view this content.

Every time I play around with my code there is always a problem. The code posted is used for something else but I’m posting it to give an idea of kind of what it is.

[Excelnoub]

My code starts with the following:

Please Login or Register  to view this content.