هل ممكن ضبط الكود للخلايا المدمجة ليتوافق مع ملفي

[عيسى العامري]

السلام عليكم 
الاخوة الافاضل بعد التحية :انا عندي خلايا مدمجة بالتقارير التي اصدرها لوم اجد حل لتفريق وافراد الخلايا المدمجة لاطبق علي معادلة 
بعد البحث الكثيف بالموقع وجدت كود اذا تم تعديل صيغتة قد يتوافق معي ..بالمرفقات التوضيح ...مع خالص التحية والتقدير

تطبق الكود على هذا النموذج للخلايا مدمجة.xlsx reda23.xlsm

[محي الدين ابو البشر]

عليكم السلام

ربما هذا الكود يحل المشكلة

Sub Separet_values()
    Dim Cel As Range
    Dim m%, st1
    For Each Cel In Range("G22").Resize(Cells(Rows.Count, "H").End(xlUp).Row - 19).Cells
        m = Cel.Row
        If Cel.MergeCells Then
            st1 = Cel.MergeArea.Columns(1)
            Cells(Cel.Row, "B") = st1
        Else
            Cells(Cel.Row, "B") = Cel
        End If
    Next Cel
    For Each Cel In Range("H22").Resize(Cells(Rows.Count, "H").End(xlUp).Row - 19).Cells
        m = Cel.Row
        If Cel.MergeCells Then
            st1 = Cel.MergeArea.Columns(1)
            Cells(m, "A") = st1
        Else
            Cells(m, "A") = Cel
        End If
    Next Cel
End Sub