مساعدة في نسخ بيانات من شيت الى شيت

[حراثي تواتي]

السلام عليكم ورحمة الله وبركاته

ارجوا منكم مساعدتي في نسخ البيانات من الشيت 1 الى الشيت 2 كما هو موضح في الصورة

وشكرا مسبقا

تواتي 33.xlsm

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

هذا الماكرو

Private Sub CommandButton2_Click()
  Sheets("sheet2").Range("A5").CurrentRegion.Clear
  Sheets("sheet1").Range("A5").CurrentRegion.Copy _
  Sheets("sheet2").Range("A5")
End Sub

 

[حراثي تواتي]

بارك الله فيك استاذنا المحترم و أطال الله في عمرك وعمر من تحب  سليم حاصبيا