copy data from a sheet but i have a duplicate data.

i try this but i have an error

i = Cells(Rows.Count, 6).End(xlUp).Row 'data in Cell C
x = Filter(Evaluate("TRANSPOSE(IF(COUNTIF(OFFSET(a6:a5000" & i & ",0,0,ROW(1:" & i - 1 & _
                    ")),a6:a5000" & i & ")=1,a6:a5000" & i & ",CHAR(126)))"), "~", 0)