VBA to cut some text and insert above text in another cell

[jbarbara11]

I am trying to build a vba macro that will do a few things.
1. Cut the text from the row I am working on in column A before the word "ACTION:"
2. Insert the text cut from that row into Column B. Now, the same row in column B will probably already have text in it I want to keep. So the macro needs to insert a line to push the old text down a line and then insert the cut text.
3. Make the older text's font in that row smaller, like size 5.
4. Back in column A insert today's date and leave the cursor there to begin typing notes for today.

I also need the text starting at the word "ACTION:" to remain bold.

See that attachment for an example of before and after the macro. Also, the macro only needs to do its magic on the active cell.

Help will be greatly appreciated.

--Jim

[jbarbara11]

Actually, I think I have finally put it all together... Whew!

Please Login or Register  to view this content.