عليكم السلام ورحمه الله و بركاته 
هو ما اريد هو جعل 
LR = Sheets("DATAA").Cells(65000, "B").End(xlUp).Row 
عمود b متغير فى هذا الكود حسب كل منتج بمعنى منتج  
1 عند اختياره يسجل ف LR = Sheets("DATAA").Cells(65000, "B").End(xlUp).Row b 
منتج 2 يسجل ف LR = Sheets("DATAA").Cells(65000, "c").End(xlUp).Row c 
منتج 3 يسجل ف LR = Sheets("DATAA").Cells(65000, "d").End(xlUp).Row d 
منتج 4 يسجل ف LR = Sheets("DATAA").Cells(65000, "e").End(xlUp).Row e 
منتج 5 يسجل ف LR = Sheets("DATAA").Cells(65000, "f").End(xlUp).Row f 
وهكذا ......... 
وهنا سيجعل عمليه التسجيل اقل بمعنى الكود هيسجل ف اخر سطر من b او c او d او f حسب كل منتج اى كل منتج سيصبح مستقل بذاته عند اختياره فى عمليه التسجيل