كود ترحيل

[mahmoud hamza]

السلام عليكم

لدى زر ماكرو لجلب بيانات محدده اريد ادخال header and footer ضمن الماكرو

هل يمكن ادخال تذيل رأسى وأفقى فى كود الترحيل

هذا هو الكود الذى اريد التعديل عليه

Application.ScreenUpdating = False
Dim My_rg As Range
Dim x%, i%, a(), k%: k = 1
Dim lr%: lr = Sheets("All WaFa").Cells(Rows.Count, 1).End(3).Row

Set My_rg = Sheets("All WaFa").Range("a1:AJ" & lr)
Sheets("تقرير").Range("b1").CurrentRegion.Resize(500).Clear

a = Array(4, 5, 9, 21, 12, 13, 14, 17, 16, 22, 25, 6, 49, 7)
 For i = 0 To 13
My_rg.Columns(a(i)).SpecialCells(xlCellTypeVisible).Copy _
Sheets("تقرير").Cells(1, k)
  k = k + 1
  Next
  Erase a
  Application.ScreenUpdating = True

End Sub