مشكلة في كود الترحيل

[gamalin2]

الاخوة الافاضل في كود الترحيل التالي حصلت معايا مشكلة 

وهي في حالة وجود فلتر في االصفحة المرحل اليها 

يتم الكتابة على سطور مخفية فيها بيانات 

هل يمكن جعل الكسل يفك الفلتر في الصفحة المراد الترحيل اليها قبل الترحيل واعادته بعد الترحيل مثلا 

        With Sheets("cashmove").[a10000].End(xlUp)
              .Offset(1, 0).FormulaR1C1 = "=if((r[-1]c)<>""ã"",(r[-1]c)+1,1)"
              .Offset(1, 1) = Cells(6, 2)
              .Offset(1, 2) = Cells(7, 2)
              .Offset(1, 3) = Cells(4, 2)
              .Offset(1, 4) = Cells(9, 2)
              .Offset(1, 5) = Cells(5, 2)

 

[gamalin2]

تم اضافة السطر التالي وتم حل الامر وافر التحية للجميع

Sheets("Accmove").Rows("3:3").AutoFilter