Recording purchase order form to Data

Hi,
i am still quite new with VBA coding much help will be appreciate.
I have created a purchase order form where the "Product Selection" button allow users to select their toys for purchases. Now, i need another function which is created as well named "Comfirm order". Upon clicking this function, i want all the information from cell B4:D9 to be transferred to "Sales Data" sheet.
Thank you.

Hello Roy Lee,

This worked for me.

Private Sub CommandButton1_Click()
    UserForm2.Show
End Sub

Private Sub CommandButton2_Click()

    Dim DstRng  As Range
    Dim DstWks  As Worksheet
    Dim r       As Long
    Dim SrcRng  As Range
    Dim SrcWks  As Worksheet
    
        Set DstWks = Worksheets("Sales Data")
        Set DstRng = DstWks.Range("A2:C2").Resize(5, 3)
        
        Set SrcWks = Worksheets("Purchase Order")
        Set SrcRng = SrcWks.Range("B5:D9")
        
        For r = 1 To 5
            DstRng.Cells(r, 3).Value = SrcRng.Cells(r, 1).Value
            DstRng.Cells(r, 2).Value = SrcRng.Cells(r, 2).Value
            DstRng.Cells(r, 1).Value = SrcRng.Cells(r, 3).Value
        Next r
        
End Sub

Hello Roy Lee,

Here is the updated macro code...

Private Sub CommandButton1_Click()
    UserForm2.Show
End Sub

Private Sub CommandButton2_Click()

    Dim DstRng  As Range
    Dim DstWks  As Worksheet
    Dim SrcRng  As Range
    Dim SrcWks  As Worksheet
    
        Set DstWks = Worksheets("Sales Data")
        Set DstRng = DstWks.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 3)
        
        Set SrcWks = Worksheets("Purchase Order")
        Set SrcRng = SrcWks.Range("B5:D9")
        
        For r = 1 To 5
            DstRng.Cells(r, 3).Value = SrcRng.Cells(r, 1).Value
            DstRng.Cells(r, 2).Value = SrcRng.Cells(r, 2).Value
            DstRng.Cells(r, 1).Value = SrcRng.Cells(r, 3).Value
        Next r
        
End Sub

Hello Roy Lee,

You're welcome.