Soru Birleştirilmiş hücre listboxa alma

[sirkülasyon]

Private Sub UserForm_Activate()
  Dim c As Range, dic As Object
  Set sh = Sheets("Sayfa3")
  Set dic = CreateObject("Scripting.Dictionary")
  For Each c In sh.Range("C3", sh.Range("C" & Rows.Count).End(xlUp))
    dic(c.Value) = Empty
  Next
  ListBox1.List = dic.keys
End Sub

Yukarıdaki kod ile Listbox1 e liste olarak alıyorum ama birleştirilmiş hücreler olduğu için arada boşluklar oluşuyor. Bu boşlukları almadan listeyi nasıl düzenleyebilirim?

 

[ÖmerFaruk]

Aşağıdaki gibi yaparak denermisin
If c <> "" Then dic(c.Value) = Empty

 

[sirkülasyon]

Çok Teşekkür ederim.
Sağ Olasın