Sub test2()
Dim tt
If cells(a,b).MergeCells Then
    tt = cells(a,b).MergeArea.Columns
    a = tt(1, 1)
Else
    tt = cells(a,b)
End If
MsgBox (a)
End Sub