Remove Duplicates but Dont delete the rows

Hello Excelforum Members

Following code working fine with me, but after removing duplicates, code collapse / combine records.

Value should be keep on same place & should not be move up

For example in column "A" contains data like

VBA
VBA
VBA
ABC
Steave
VBA
ABC
XYV
Steave

After runs of code value has coming
VBA
ABC
Steave
XYV

Sub test1()
    Dim r As Range
    LR = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    Set r = Range("A1:A" & LR)
    r.RemoveDuplicates Columns:=Array(1), Header:=xlNo
End Sub