Sub Button4_Click()
   
     Sheets("data").Select
     Range("J4").Select
     Selection.Copy
     Sheets("Sheet2").Select
     ActiveSheet.Paste
     ActiveWindow.SelectedSheets.PrintOut

     Sheets("data").Select
     Range("J5").Select
     Selection.Copy
     Sheets("Sheet2").Select
     ActiveSheet.Paste
     ActiveWindow.SelectedSheets.PrintOut

End Sub

 อยากได้ให้ loop Range J4 - J40 ของ sheet Data

ตอนนี้ทำได้แค่กดปุ่มและให้สั่งปริ้น จะเขียน แก้ แค่ J4 J40 ก็กลัวจะตาลาย 

ขอบคุณครับ