hücre birleştirme ve bölme

[memduh]

Merhaba arkadaşlar. Aşağıdaki makroyla birleştirilen a1 be b1 hücresini eski haline getiren (Mergeli hücreyi birleştiren) makro lazım ara yaptım fakat bulamadım. saygılar.
Sub birlestir()
deg = [a1] & [b1]
[a1:b1].ClearContents
[a1:b1].Merge
[a1] = deg
End Sub

 

[ftekin]

Sub ayır()
deg = [a1] & [b1]
[a1:b1].ClearContents
[a1:b1].UnMerge
[a1] = deg
End Sub