نقل الخلايا الممتلئة مكان الفارغة في جدول

[osama elmorsy]

هل يوجد كود أو طريقة لرفع الخلايا الممتلئة بالبيانات في جدول لأعلي مكان الفارغة بدون التأثير علي عدد صفوف الجدول حيث ان المطلوب هو مسح بيانات الصف وليس الصف كلة
ولحضراتكم وافر الشكر والإمتنان

work sheet.xlsm

[سليم حاصبيا]

للمرة الالف    عدم نسمية الورقة باللغة العربية

جرب هذا الماكرو صفحة  Salim من هذا الملف 

Option Explicit

Sub del_data()
Dim Ar(), Element
Dim Rg_To_copy As Variant
Dim My_sh As Worksheet
Dim Dic As Object, KY, i%
Set My_sh = Sheets("Salim")
Ar = Array("B8", "B47")
Set Dic = CreateObject("Scripting.Dictionary")

For Each Element In Ar
     For Each Rg In My_sh.Range(Element).Resize(30) _
           .SpecialCells(2, 23)
           Rg_To_copy = Application.Transpose(Rg.Resize(, 7))
           Rg_To_copy = Application.Transpose(Rg_To_copy)
           Dic(Dic.Count) = Join(Rg_To_copy, "*")
     Next
     My_sh.Range(Element).Resize(30, 7).ClearContents
         If Dic.Count Then
             For i = 0 To Dic.Count - 1
              My_sh.Range(Element).Cells(1, 1). _
              Resize(, 7).Offset(i) = Split(Dic.Item(i), "*")
             Next
         End If
    Dic.RemoveAll

 Next Element
End Sub

الملف مرفق

Osama_Dict.xlsm

[osama elmorsy]

أستاذ سليم أنت الأفضل والأروع بلا منازع وجزاك الله كل الخير وزادك من العلم والتوفيق وان تظل دائما الأفضل وشكرا جزيلا لحضرتك أيها الأستاذ المبدع