VBA to Extract unique values from multiple columns in to two column

[SteynBS]

I need unique values in 2 columns to be pasted into another sheet in 2 columns.

I used this one but it pastes the values into 1 column

Sub ManyColDupes()
Dim MyDict As Object, InputRange As Range, OutputCol As Range, z As Variant, c As Variant

Set MyDict = CreateObject("Scripting.Dictionary")
Set InputRange = Sheets("Sheet6").Range("D1:BS1,CC1")
Set OutputCol = Sheets("Sheet7").Range("X1")

On Error Resume Next
For Each c In InputRange
For Each z In Range(c, c.Offset(Rows.Count - 1).End(xlUp))
If z <> "" Then MyDict(CStr(z)) = 1
Next z
Next c

OutputCol.Resize(MyDict.Count, 1).Value = WorksheetFunction.Transpose(MyDict.keys)

End Sub

Example
Column D must be pasted into the other sheet in Column B, and Column E needs to be pasted in the other sheet in Column C

Vendor Name Site
Premier Site 1
Premier Site 2
Nativa X
Cosmic Fashion Site C
MC Site X
MC Site Y

 

[LazyBug]

now I need to copy column B:H

Hmmm... It's a few clumsy code, but i think it should have work. For filtering by unique rows in the BCDEF columns with BCDEFGH copying.
Come back here next time you need additional assistance.

Sub FilterBy5ColumnsCopy7()
Dim d As Object
Dim j, r As Range, c As Range, i&
Dim c1$, c2$, c3$, c4$, c5$, c6$, c7$

    Set r = Sheets("Sheet6").Range("B1:B" & Cells(1, 2).End(4).Row)
    Set d = CreateObject("Scripting.Dictionary")
    With d
        For Each c In r
            c1 = c.Value
            c2 = c.Offset(, 1).Value
            c3 = c.Offset(, 2).Value
            c4 = c.Offset(, 3).Value
            c5 = c.Offset(, 4).Value
            c6 = c.Offset(, 5).Value
            c7 = c.Offset(, 6).Value
            j = c1 & c2 & c3 & c4 & c5
            .Item(j) = Array(c1, c2, c3, c4, c5, c6, c7) 
        Next c
    i = 1
        For Each j In .Keys
            Sheets("Sheet7").Cells(i, 2).Resize(, 7) = Array(d(j)(0), d(j)(1), d(j)(2), d(j)(3), d(j)(4), d(j)(5), d(j)(6))
            i = i + 1
        Next j
    End With
End Sub