Sub Skipper(ByVal ListRng As Range, ByVal PrintRng As Range)
    Dim Elm As Variant
    Dim BufStr As String
    Dim buffer() As String

    ' Add in Uniq List
    For Each Elm In ListRng
        If Elm <> vbNullString Then BufStr = BufStr & "|" & Elm
    Next Elm

    ' Put selected elements into buffer array
    buffer() = Split(BufStr, "|")

    ' Print
    Set PrintRng = PrintRng.Offset(-1, 0).Resize(UBound(buffer) + 1, 1)
    PrintRng = WorksheetFunction.Transpose(buffer())

    Erase buffer
    Set ListRng = Nothing
    Set PrintRng = Nothing

End Sub