السلام عليكم ورحمة الله وبركاتة
اخواني ممكن مساعدتي في تعديل كود نسخ ولصق
Sub oddinho2z()
x = 5
Range("BU7:BU169,BV7:BV169").Copy
Range("DC7").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(, 1).Select
x = x - 10
If x = 0 Then Exit Sub
Loop
ActiveCell.Select
ActiveSheet.Paste
End Sub
هذا الكود يقوم بنسخ الاعمدة BU وBV و لصقها من بعد عمود DC بترتيب متسلسل
اريد ايضاء يقوم بنسخ الاعمدة H و I ولصقها من بعد العمود KF بترتيب ايضاء متسلسل
اتمنا مساعدتي