خطأ في تطبيق اكسل

قمت بانزال تطبيق اكسل من الانترنت لحساب لمتابعة وحساب درجات المتدربين وتسجيل غيابهم وهو يعمل بشكل جيد لكن المشكلة في حالة النقر على زر إضافة مسمى تدريب جديد (لاعطاء كل متدرب الدرجة المستحقة فيما بعد) .

أجد أن يعطي رسالة خطأ وتفتح نافذة Debug وبها كود التطبيق مع تلوين ثلاثة أسطر باللون الأحمر

 'To locate the end of the student list
    Range("A3").Select
    Cells.Find(What:="", After:=[ _
         A3], LookIn:=xlFormulas, LookAt:=xlPart, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
    No_More_Students = ActiveCell.Row
    Range("A1").Select

والأسطر الحمراء هي

Cells.Find(What:="", After:=[ _
         A3], LookIn:=xlFormulas, LookAt:=xlPart, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate

أرجوكم ما هو الخطأ