السلام عليكم و رحمة الله و بركاتة اخواني الخبراء ارجوا مساعدتي Private Sub CommandButton2_Click() Sheet6.Range("k2").Value = Sheet5.Range("F7").Value Dim x As Integer x = Sheet6.Range("L2").Value Sheet6.Cells(x, "B").Value = Sheet5.Range("B7").Value Sheet6.Cells(x, "C").Value = Sheet5.Range("F7").Value Sheet6.Cells(x, "D").Value = Sheet5.Range("B9:B28").Value Sheet6.Cells(x, "e").Value = Sheet5.Range("d9:d28").Value Sheet6.Cells(x, "D").Value = Sheet5.Range("B9:B28").Value MsgBox "تم تعد