Check and Remove duplicates Horizontally (Within ROW)

Hi,

I have a data in sheet1. Column A is Serial number and data starts from Column B till the end.

I want to remove the duplicate values within a row. and paste a data (Without duplicates) in a new sheet2

Note : - we will be adding data in rows and columns from time to time.

Please refer attachment.

it shows error in following line

If Not Column = vbNullString And InStr(unique, Column) = 0 Then