VBA Find Copy Paste

Dear Forum,

Newbie to VBA here and would appreciate some advice or help on the below query please.

I have searched through the forum and Google and found a few bits and pieces that almost match but I dont have the knowhow to amend the code. What I am trying to achieve is:

- I have a basic userform to enter data, when a command button is clicked the data is transferred into a ws called "Update Quality Check Data" - this works perfeclty so far
- What I am now trying to do is find data in the ws "Update Quality Check Data: transfer it to a table in another sheet.

In the ws:

- Column A:A contains Months
- Column B:B contains Names
- Column C:C contains Ticket Numbers

What I need to do is transfer onlythe Ticket numbers to seperate sheets If month and Name match, the sheet looks something like this:

A B C
June John 123
June William 456
July John 789
July David 101
July Bob 112

So to summarize what I would like to achieve is:

IF A:A = "June", AND B:B = "John"
Copy C:C orders of John in June, July etc. to ws named John starting at cell D5 and going down until there is no more matching entries

I have tried to have a go as per below but failed miserably so far:

Private Sub Data_Transfer()


 Dim LastRow As Long
 'Ticket is the data on Update Quality Checks Data sheet to be transferred to Sheet "David"
 Dim Ticket As Range


 LastRow = Cells(Row.Count, "C").End(xlUp).Row


 'Activate Quality Checks sheet
 Sheets("Update Quality Checks Data").Select
 'Select the Range to be copied
 Range("C2:C" & LastRow).Select




    For Each TicketRow In Range("C7:C" & LastRow)
 'If A:A on Update Quality Sheet Data = June and B:B = John, copy C:C to ws John starting from cell D5


         If Range("A:A").Value = "June" And Range("B:B").Value = "John" Then
            Selection.Cut
            Sheets("David").Select
            Range("D5" & Columns.Count).End(xlUp).Offset(1).Select
            ActiveSheet.Paste


        End If
    Next Ticket


 End Sub

Is this possible? and as people enter the data into the useform would this automatically update the table on John's ws?

Sorry for the complex babble, hopefully it makes some sense.

Kind Regards

Bob

Re: VBA Find Copy Paste

I have added the attachment to help explain.

So I need the Macro to look at A:A and B:B in ws Update Quality Check Data. Based on the results copy the ticket numbers into the table on ws based on the user name

Hope that makes sense

Bob

Re: VBA Find Copy Paste

Thanks Fuzz-Head you are a legend it works like a charm! I would just like to ask if the following would be possible as an adjustment?

1. Is it possible when the user hits the Submit button on the UserForm1 that the sheets automatically update? reason I ask is that now it works great but I need to run the code each time data is added, and this then means duplicate entries, which would also lead me to ask
2. if 1. is possible is there a way to avoid duplicate entries? it is possible the same ticket number a. could appear for more than 1 user and b. could appear more than once for the same user

Can the code be appended to the Submit button to achieve this?

Kind Regards

Bob