macro to paste multi line text into one cell

[unorth]

I'm trying to make a macro that pastes multiple lines of text into one cell. The lines of text have been copied into the clipboard from a different app.
Manually I can do this task by pressing F2 before pasting, or by pasting into the formula bar.

I tried
SendKeys "{F2}", True
ActiveCell.PasteSpecial

But my macro is spreading the text into several rows instead of one cell.

 

[D_Step]

I have the same question, can anyone answer this?