Filter Unique and delete Duplicates

[bayyari]

Ok, I have this form that I have been working on. It is a submission form for numbers that are submitted to certain sheets depending on where it needs to go. So for now, my code just checks for a number input, copies from sheet Form and pastes into the new field in one of the other sheets, then deletes the input text in the original form. I am wanting it to copy over and check for duplicates in column B where the unique data is supposed to be and delete the duplicates. So far i have looked up several pieces of macro code that doesn't work, except for altering the look of my spreadsheet. So, for an idea of how my sheet looks:

(INPUT BOX) -> Button


when you click the button it sends the info to sheet 2 and pastes in this format:

ColA ColB
*DATE* *NUMBER*

cells A1 and B1 have names so they do not necessarily need to be included.

After it pastes it clears the original cell the data came from. Here is the code i have.

Sub rrmacro()

'
    Sheets("Form").Select

   For Each x In Range("C6")
     If x = 0 Then varAnswer = MsgBox("Ticket number is needed", vbOKOnly, "Alert")
     If x >= "1" Then Sheets("Form").Range("C6,A6") _
     .Copy Sheets("RR").Cells(Rows.Count, _
     1).End(xlUp).Offset(1, 0)
     Range("C6").Select
    Selection.ClearContents
   
    Next
End Sub

 

[lenze]

Recodr a macro doing this using Advanced Filter. this will give you the syntax. It will be somethibng like this

Sheets("Sheet1").Range("D1:D9").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("C1"), Unique:=True

lenze

 

[bayyari]

Thanks! I actually did this after i submitted the question and it now works. I was just trying to figure out a way to keep it from switching screens. But thats ok, it's just for work and i'm sure they won't care.