VBA แทนค่าใน loop for ยังไงหรอครับ

จากโค้ดข้างบน ผมลองไป copy code จากที่อื่นมาแล้วทำเองดู ถ้าผมไม่ได้แทนค่าลงไปและกำหนดค่าปกติมันรันได้ครับ แต่พอแทนไปแล้วมันรันไม่ผ่าน ผมต้องการ
copy เซลทีละ 10 ช่อง เก็บไว้ในช่อง A1 ของในแต่ละ sheet อันใหม่ เช่น sheet 2,3,4 ไปถึงที่เรากำหนด จึงอยากทราบว่าใน vba การแทนค่าในลักษณะนี้ต้องเขียนเป็นแบบไหนครับ 🙏🙏🙏