عاطف عبد العليم محمد

وعليكم السلام ورحمة الله وبركاته  أخي عباد  وجزاك الله خيرا
استفدت من ردك فما كنت أعرف تعبير Target.Row
والحل بعد تطبيقه هو  
    d = Range("f7", Range("f7").End(xlDown)).Count        If Target.Column = 5 And Target.Row > 6 And Target.Row < (d + 7) Then         
 
  
وفقكم الله  وغفر الله لنا ولكم ووالدينا ووالديكم ولجميع من في المنتدى عامة ولكل المسلمين