Multiple text in range into single column

[NigelVII]

I have data in rows like this:

Sally Bob Dave Wally
Jim Dave Henry Frank Ralph John Ringo George Paul
Henry Bob

There can be as many as 25 names and the number of rows will increase.

I am trying to get all the names in a separate column and remove duplicates.

I would gratefully appreciate help with this?

 

[RB Smissaert]

Are all the names in different cells?

RBS

 

[NigelVII]

Yes, each name is in a separate cell.

Are all the names in different cells?

RBS

 

[NigelVII]

I did get this to work:

Sub NamedRangeToSeparateCells()
Dim nString As String
Dim nRange As Range
Dim nCells As Integer

nCells = 0

For Each nRange In Range("IND_NAMES_ARRAY")

If nRange.Value <> Empty Then
nCells = nCells + 1
nString = nString & nRange.Value
Cells(nCells, 30).Value = nString
Else
End If

nString = " "

Next
End Sub

As a guy who just slaps code together and sometimes it works, I'm just
curious if this is good, compact code?