Un-merged Cells and fill with duplicate values using VB Code

[callsidd]

Hi Guys,

Need your help.

I need to unmerged Column A & B using this formula, can u please help me out.

While using this code, it duplicates other columns available in the sheet


Sub UnMergeSameCell()
'Upadateby20131127
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
If Rng.MergeCells Then
With Rng.MergeArea
.UnMerge
.Formula = Rng.Formula
End With
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub