Объединение ячеек в эксель без потери данных - VB

Формулировка задачи:

привет!
нужно объединить ячейки из двух разных столбцов (А1:В1, А2:В2 и т.д.) без потери данных, чтобы между значениями был пробел.
как я понимаю нужно написать процедуру, повесить её на кнопку. пробовала затестить такой вариант:
Range("A1:B1").MergeCells = True
но он с потерей данных.
пожалуйста просьба если возможно привести готовый пример процедуры. очень срочно, некогда разбираться и читать книжки.
спасибо!!!

Решение задачи: «Объединение ячеек в эксель без потери данных»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> MergeSelectionColumn()
 <font color="blue">For</font> <font color="blue">Each</font> MyCell <font color="blue">In</font> Selection.Cells
  a = MyCell.Value & <font color="teal">" "</font> & MyCell.Offset(<font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>1</b></font>).Value
  <font color="blue">With</font> Range(Cells(MyCell.Row, MyCell.Column), Cells(MyCell.Row, MyCell.Column + <font color="darkblue"><b>1</b></font>))
   .ClearContents
   .MergeCells = True
   MyCell.Value = a
  <font color="blue">End</font> <font color="blue">With</font>
 <font color="blue">Next</font> MyCell
<font color="blue">End</font> <font color="blue">Sub</font>

                        