the code i have so far is...

Private Sub NewList()
Dim c As Range
Dim LastC As Range
Dim i As Integer
Set LastC = Range("A65354").End(xlUp)
For Each c In Range("A2", LastC)
If c < "" Then
Range("B2").Offset(i, 0) = c.Value
i = i + 1
End If
Next c
End Sub

this takes the blanks out of a range, but i need to also incorporate
only copying unique cells......

so converting ColA to ColB

ColA ColB

test1 test1
test2 test2
test1 test3
<blank
test3
<blank
test1

and then how making a named range out of ColB would be really helpful
too...or at least finding the last cell (test3 in the example)