Soru Birleştirilmiş Hücreye Koşullu Biçimlendirme

[sametguler]

Üstadlar hayırlı günler.
Aşağıdaki kod bloğu ile satırlara kenarlık eklemektedir. (E Sütunundaki hücrelerin boş olup olmadığına göre))
Ancak E sütunundaki hücrelerden Örnek olarak 3 hücre birleştirilmiş olduğunda, kenarlığı birleştirilen hücrelerin en üstü ve altını çizmiyor. Ortasına çiziyor, yada birleştirilen hüzrelere ait satırlara çiziyor.
Normalde her dolu olan E sütunu için çiziyor bunda sıkıntı yok. Ancak birleştirilen hücreye ait satır aralığını düzgün çizmiyor. (Gruplandırmıyor)
Size zahmet bana yardımcı olur musunuz?

Not: Aslında önce veriler sayfaya tek tek aktarılıyor. Sonra İlaç Saati aynı olan hücreler Macro ile birleştiriliyor.
Kenarlık Ekleme olayını da, Birleştirme İşleminden Sonra, kod bloğunu çağırarak yapmak istiyorum.

https://s6.dosya.tc/server12/m3w5m2/ILAC.xlsm.html

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Range("D11:AJ40").Borders(xlInsideHorizontal).Weight = xlThin
For a = 11 To 40
    If Cells(a, "E") <> "" Then
        Range("A" & a & ":AJ" & a).Borders(xlEdgeBottom).Weight = xlThick
    End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[sametguler]

Konu Günceldir.