Compare Two Sheets And Remove Duplicate Rows To New Sheet

The following code compare two sheets and remove the duplicate rows to a new sheet. In this code I have to create the third sheet manually.

I need the "New Sheet" to be create automatically with the name of "Dup".

Code:

Option Explicit
Sub nomatchnoty32()
Dim X, i As Long, j As Long, Y(), Dic As Object, k&, Z, name1$, name2$

Const shSource1 As String = "sheet1"
Const shSource2 As String = "Sheet2"

[Code] .........