avoid multiple text in range

[CG Rosén]

Hi Group,

Any hints how to approach this;

Filling a range by code below. How to to code to skip if the same text
in Worksheets(2).Cells(1, a) appears multiple times?

a = Application.WorksheetFunction.CountA(Sheets(2).Range("A1:K1")) + 2
Worksheets(2).Cells(1, a) = Worksheets(1).Cells(r, 2)

Brgds

CG Rosén