قبل سطر الرسالة الأخيرة ضع الأسطر التالية في الكود الخاص بالتعديل ..
Dim m As Long
Set wsData = ThisWorkbook.Worksheets("data")
m = wsData.Cells(Rows.Count, 1).End(xlUp).Row + 1
If ComboBox30.Value = "äÚã" Then
With wsData
.Cells(m, 1).Value = wsMkt.Cells(rowNum, 1).Value
.Cells(m, 2).Value = wsMkt.Cells(rowNum, 7).Value
.Cells(m, 3).Resize(, 4).Value = wsMkt.Cells(rowNum, 2).Resize(, 4).Value
.Cells(m, 7).Resize(, 5).Value = wsMkt.Cells(rowNum, 10).Resize(, 4).Value
.Cells(m, 20).Value = wsMkt.Cells(rowNum, 18).Value
.Cells(m, 22).Value = wsMkt.Cells(rowNum, 20).Value
.Cells(m, 25).Resize(, 2).Value = wsMkt.Cells(rowNum, 22).Resize(, 2).Value
End With
End If
قمت في الكود بالترحيل للصف بعد الجدول بصف لأن التعامل مع الجدول يسبب مشاكل في ملفك ولا أدري سبب المشكلة ، لذا أنصحك أن تجعل النطاقات عادية وليست جداول ..
بعد الترحيل يمكنك حذف الصف من الورقة المسماة mkt حاول عمل هذا السطر بنفسك.