تفضل أخي هل هذا هو المطلوب
وكان هناك خطأ في الكود الخاص بي الفورم الأول وتم تصحيحه
الكود الخطأ كالتالي
Cells(10000, "k").End(xlUp).Offset(1, 0).Value = TextBox9.Value
Cells(10000, "j").End(xlUp).Offset(1, 0).Value = TextBox10.Value
والصواب
Cells(10000, "j").End(xlUp).Offset(1, 0).Value = TextBox9.Value
Cells(10000, "k").End(xlUp).Offset(1, 0).Value = TextBox10.Value
أبو محمد أشرف.rar