أخي الفاضل
جزاكم الله خيرا على كلماتك الرقية الطيبة
ومبدئيا وعلى حسب علمى البسيط أقدم لك معادلات أول صف من خلال الكود وسوف يتم إن شاء الله توظيفها لتتم بشكل تلقائي داخل الملف إن أمكن
والله الموفق
هذة الطريقة البدائية تتيح لك إدخال البيانات في أول صف
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C3,RC2,1))))))>0,R1C3,"""")"
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C4,RC2,1))))))>0,R1C4,"""")"
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C5,RC2,1))))))>0,R1C5,"""")"
Range("F2").Select
ActiveCell.FormulaR1C1 = _
"=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C6,RC2,1))))))>0,R1C6,"""")"
Range("G2").Select
ActiveCell.FormulaR1C1 = _
"=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C7,RC2,1))))))>0,R1C7,"""")"
Range("G3").Select