Code to compare data in 2 sheets and delete duplicates

Hi everyone,
As you can read from my title, I am trying to setup a macro that will compare the information on 2 sheets, delete the duplicates and finally paste the remaining values on another sheet (On the attached WB it needs to be pasted on the 'Difference' sheet)
I usually run reports @ 2, 4 and 6 pm. The 4 pm contains everything that was on the 2 pm report + any updates that happened between 2 & 4 pm. Same applies for the 6 pm.

I found a code online that allows me to find duplicates from the 2 and 4 pm reports and delete it from the 4 pm sheet. Here it is:

Sub CleanDupes()
    Dim targetArray, searchArray
    Dim targetRange As Range
    Dim x As Long

    'Update these 4 lines if your target and search ranges change
    Dim TargetSheetName As String: TargetSheetName = "4 pm"
    Dim TargetSheetColumn As String: TargetSheetColumn = "A"
    Dim SearchSheetName As String: SearchSheetName = "2 pm"
    Dim SearchSheetColumn As String: SearchSheetColumn = "A"

    'Load target array
    With Sheets(TargetSheetName)
        Set targetRange = .Range(.Range(TargetSheetColumn & "1"), _
                .Range(TargetSheetColumn & Rows.Count).End(xlUp))
        targetArray = targetRange
    End With
    'Load Search Array
    With Sheets(SearchSheetName)
        searchArray = .Range(.Range(SearchSheetColumn & "1"), _
                .Range(SearchSheetColumn & Rows.Count).End(xlUp))
    End With


    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    'Populate dictionary from search array
    If IsArray(searchArray) Then
        For x = 1 To UBound(searchArray)
            If Not dict.Exists(searchArray(x, 1)) Then
                dict.Add searchArray(x, 1), 1
            End If
        Next
    Else
        If Not dict.Exists(searchArray) Then
            dict.Add searchArray, 1
        End If
    End If

    'Delete rows with values found in dictionary
    If IsArray(targetArray) Then
        'Step backwards to avoid deleting the wrong rows.
        For x = UBound(targetArray) To 1 Step -1
            If dict.Exists(targetArray(x, 1)) Then
                targetRange.Cells(x).EntireRow.Delete
            End If
        Next
    Else
        If dict.Exists(targetArray) Then
            targetRange.EntireRow.Delete
        End If
    End If
End Sub

However, instead of deleting the values from the actual report, I would like to run the macro from the 'Difference' sheet and the former pastes the data on the sheet.
I would also like to prevent the first row from being deleted.

Is that possible? If it is, any help would be much appreciated.

Thanks,
Amar.

"However, instead of deleting the values from the actual report, I would like to run the macro from the 'Difference' sheet and the former pastes the data on the sheet."

Currently the code compares sheets 2 and 4 based on column A. If they match, the rows in sheet 4 are deleted. The code does not copy to any sheet.
You need to explain what change do you want to make?
"deleting the values from the actual report"
Do you mean deleting from sheet 4pm?

How can you run the macro from the difference sheet when that sheet is blank?
Not clear!

Hi AB33,
Sorry if I wasn't clear.
So I run the report @ different times and then paste the data in the appropriate sheet in the attached workbook. The 4 pm report has the 2 pm's data +any update, and the 6 pm report has the 2 pm and 4 pm data + any updates that happened between 4 and 6 pm.
Let's say I want to find updates that occured between 2 pm and 4 pm. I run the macro, it finds the updates and it deletes the duplicates from the 4 pm sheet. Now if I want to find updates between 4 and 6 pm, I will make the macro compare 4 and 6 pm sheet. However, the results will be scewed because only data fom the 4 pm will be deleted, thus leaving me with 2 pm's data +updates, on the 6 pm sheet.
I hope this makes sense.
So instead of deleting the data from the sheets, i would like the macro to find the updates and paste them in on another sheet. If I can get only the code that will do this for the 2 pm and 4 pm sheet, I will be a happy camper.

Thanks,
Amar

Do you mean the difference(Missing from sheet2) between sheet2 and 4 are pasted in to sheet difference?

Yes, exactly what I meant.

Please see attached my code.

This is exactly what I am looking for. Thank you so much.
There are 2 minor things that I noticed, however. The code removes leading zeros and dashes. Can this be prevented?

"The code removes leading zeros and dashes. Can this be prevented"?
The code uses an array to copy data and so do not see how?
Which line? It might be a formatting issue with your data.

Yeah, it was the formatting...rookie mistake
Thanks a lot, buddy.