مشكلة فى ترحيل بيانات صف فى شيت الى شيت أخر بناءً على شرطين

[portegy]

السلام عليكم ورحمة الله 

ارجو المساعدة فى عمل كود VBA يقوم بترحيل (Row إجمالى اليومية  )  الخاص بكل يومية بدءً من D:BL من شيت الى الشيت المجمع TDx (حيث x يطلق على رقم شيت بعد TD)

بناءً على شرطين 

1- التاريخ فى العمود A3 فى الشيت الاول يتطابق مع التاريخ فى العمود A3 فى الشيت TDx (حيث x يطلق على رقم شيت بعد TD)

2- الحرف فى اسم الشيت المراد الترحيل منه مثل (S7) يتطابق مع الحرف فى العمود B فى شيت TDx (حيث x يطلق على رقم شيت بعد TD)

الملف فى المرفقات جزاكم الله خيرا للمساعدة