Get Unique values from one column and the values on the same row from another column

[Jonathan78]

Hello all,

The following code gives me the unique values from column E in column R

Sheets("DATABASE").Range("E:E").Copy Sheets("DATABASE").Range("R1")
Sheets("DATABASE").Range("R:R").RemoveDuplicates Columns:=1, Header:=xlNo

However I'd like to get the values from column G as well.
So I need the code to get all unique values from column E in column R and the values from column G (that are on the same row as the unique values from column E) in column S

All help is welcome

[nilem]

Hi Jonathan78,
maybe so

With Sheets("DATABASE")
    Union(.Range("E:E"), .Range("G:G")).Copy .Range("R1")
    .Range("R:S").RemoveDuplicates Columns:=1, Header:=xlNo
End With

[Jonathan78]

Thanks Nilem!
works great