セル結合の確認

If Range("A1").MergeCells Then
    Debug.Print "結合されています"
End If

With Range("A2")
    Debug.Print .MergeArea.Address       '結合範囲
    Debug.Print .MergeArea.Count         'セル数
    Debug.Print .MergeArea.Rows.Count    '行数
    Debug.Print .MergeArea.Columns.Count '列数
End With

以上。