Snasui Excel Forum

อยากเขียนcodeให้ ข้อมูลที่กรอกไปบันทึกลงอีกหน้าด้วยการกดปุ่ม และข้อมูลเรียงต่อกันเรื่อยๆ ในตำแหน่งที่เรากำหนด
Sub saveName()
Dim Lastrow As Integer
Lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Cells(1 + Lastrow, 2).Value = Cells(3, 3).Value
Cells(1 + Lastrow, 3).Value = Cells(3, 5).Value
End Sub

ข้อมูล เรียงต่อกันแต่อยู่ในตำแหน่งสุดท้ายและ กำหนดตำแหน่งวางไม่ได้ รบกวนชี้แนะให้ด้วยครับ

ช่วยแนบไฟล์ที่เขียน Code นี้มาแล้วพร้อมทั้งชี้ให้เห็นว่าต้องการจะวางข้อมูลที่ไหน และปัจจุบันเกิดข้อผิดพลาดใด จะได้เข้าถึงปัญหาได้โดยไวครับ