السلام عليكم ورحمة الله وبركاته...... 
 
	جزاكم الله خيراً ... طريقة الأستاذ صديق والأستاذ حماده عمر -كلاهما حلان للمشكلة .... 
 
	هل ممكن توضيح المقصود بهذا السطر من الكود
 
Set Rng2 = Range("A1").Resize(Range("V1") + 9, 13)
	 وكذلك المقصود بالمعادلة 
 
=COUNTA($B:$B)+1 
	جزاكم الله خيراً