السلام عليكم هذا هو المطلوب تحياتي وتقديري آخر سؤال استاذي الأكرم خبور بخصوص الكود الأول Private Sub CommandButton1_Click() Last = Range("B65536").End(xlUp).Row + 1 Range("B" & Last).Resize(1, 4).Value = Array(TextBox1.Value, ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) End Sub كيف اذا كان الكتابة في أعمدة متفرقة يعني الكتابة في أول صف خالى فى العمود B ثم الكتابة في العمود E ثم العمود H أسف على الاطالة أستاذ خبور ولكن لقاء الملوك والأمراء ليس كل يوم مع شكري وتقديري جزاك الله كل خير