in a calc macro, move selceted cells 1 column to the left

Hello,
The title pretty much says it all. I need to (1) select a group of non-empty cells from column E (2) move them to the corresponding row in column D.
Here’s the problem…I’m no good at writing the code. Don’t know anything about it.
I would prefer to just record the whole thing with keystrokes.

But, I’m fleixble. Any help appreciated.

Thnks
Charles