Vba that moves cells with text, (up and to left, insert row/ insert copied cell)

So I have a formula which is testing some key stuff (unimportant right now) if true then the cells get text, if not then blank. I copy and paste values so it is just blank or text. What I need is if the cells contain text then cut and paste the data above the cells to their immediate left. essentially inserting a new row and moving cells below down. I've included a sample excel of what I need it to do, if anyone can help it would be much appreciated. Thank You! I'm hoping the excel attached, but if it didn't please let me know cause I'm not seeing it even though it says it did.