“Smart Copy” Macro [SOLVED]

If you mean "paragraph" by "unit of text", then this should work: