ترحيل بيانات فاتورة

[المستر]

السلام عليكم 
كنت محتاج اعمل فاتورة بيع بالاصناف والاكواد والسعر واسم العميل
وبعد كتابة الفاتورة يتم الطباعة ويتم تحويلها علي شيت اخر لحفظ الداتا 
هل ممكن حد يساعدني او لو في شركة بتنفذ ده ياريت تعرفوني 
محتاج اعمل فاتورة بنفس التفاصيل الي موجودة وبعد كتابة الفاتورة اعملها ترحيل بيانات واضافة فاتورة جديدة 

مشاركة مكررة ... تـــم بالفعل حذف المشاركة الأخرى

فاتورة مستلزمات طبية.xls

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

بداية يجب ازالة الخلايا المدمجة من الملف (كي يعمل الكود بشكل صحيح)    تمت الازالة

الكود

Option Explicit
Sub Get_data()
    Dim LrF%, k%, LrB%
    Dim Arr_Form
    Dim Arr_to
    Dim Lr
Arr_Form = Array("B3", "B4", "B5", "J3", "I5")
Arr_to = Array(5, 6, 7, 8, 9)

LrF = Fatura.Cells(Rows.Count, "B").End(3).Row - 3
LrB = Bayan.Cells(Rows.Count, "A").End(3).Row + 1

If Fatura.Cells(9, 3) = vbNullString Then Exit Sub
 
 For k = LBound(Arr_Form) To UBound(Arr_Form)
  Bayan.Cells(LrB, Arr_to(k)).Value = _
  Fatura.Range(Arr_Form(k)).Value
 Next
 
 For k = 9 To LrF
     If Fatura.Cells(k, 3) = vbNullString Then
      Exit For
     End If
   Bayan.Cells(LrB, 1).Resize(, 4).Value = _
   Fatura.Cells(k, 1).Resize(, 4).Value
   LrB = LrB + 1
  Next
End Sub

Wael.xlsm

[المستر]

شكرا اخي سليم حاصبيا علي مساعدتك ومجهودك