شكرا لكم اخواني جميعا وبارككم الله وابقاكم لمساعدة وتعليم الناس وجازاكم الله عنا الف خير
وللعلم بعد محاولات عديدة توصلت الى هذا الكود وكله من تعليم حضراتكم فلولا ان الله يسركم لنا لما كنا نعلم شيئا عن هذه البرمجة اكرر شكري لكم
[C1] = WorksheetFunction.CountA(Range(Cells(3, "B").Address, Cells(Rows.Count, "B").Address))