نسخ بيانات

[checles]

السلام عليكم 

 برجاء المساعده في كود او معادله للنسخ البيانات باللون الاصفر تحت بعضها طول ما الخانه فاضيه ولوفيها بيانات ما ينسخش لو في خانه فاضيه ياخد بيانات الخانه الي قبلها ...وشكرا جزيلا

Book1.xlsx

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

جرب هذا الملف ( الصفحة Salim )

الكود

Option Explicit
Sub Salim_macro()
Application.ScreenUpdating = False
Dim lrB%
lrB = Cells(Rows.Count, 2).End(3).Row
Range("H5:K500").Clear
Range("B5:E" & lrB).Copy

With Range("H5")
    .PasteSpecial (12)
    .PasteSpecial (8)
    .PasteSpecial (xlPasteFormats)
    
      With .Offset(, 2).Resize(lrB - 4)
      .SpecialCells(4).Formula = "=J5"
      .Interior.ColorIndex = 6
      End With
   
   .CurrentRegion.Borders.LineStyle = 1
   .CurrentRegion.InsertIndent 1
End With

Application.CutCopyMode = False
Range("J5").Select
Application.ScreenUpdating = True
End Sub

الملف مرفق

Copy_my_data.xlsm

[checles]

شكراااا جدا جدا هذا هو المطلوب