列一覧の値の取得

参考URL
'http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_jyufuku.html

Function 列一覧出力(str As String)

'重複するデータを除いて指定した列一覧を抽出
'引数は列
'参考URL
'http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_jyufuku.html
Dim sheetName As String
Dim column As String        '一覧抽出対象列
Dim column1 As String       '一覧抽出対象列基準セル
Dim columnSet(1 To 2000) As Integer    '取得した一覧の配列

'変数の設定
sheetName = "Sheet1"
column = str
column1 = CStr(str & 1)
Debug.Print column1

Dim myDic As Object, myKey As Variant
    Dim c As Variant, varData As Variant
        Set myDic = CreateObject("Scripting.Dictionary")    'Dictonaryオブジェクト生成
        With Worksheets(sheetName)
            varData = .Range(column1, .Range(str & Rows.Count).End(xlUp)).Value
        End With
        For Each c In varData
            If Not c = Empty Then
                If Not myDic.Exists(c) Then
                    myDic.Add c, Null
                End If
            End If
        Next
        myKey = myDic.keys
        
        With Worksheets("Sheet2")
            .Range("G:G").ClearContents
            .Range("G1").Resize(myDic.Count) = Application.WorksheetFunction.Transpose(myKey)
        End With
        Set myDic = Nothing
End Function

ほとんどそのままですが・・・
値ではなくセル自体を取得していろいろ値を変えれるようにしたいけど
どうやったらいいのか悩み中です..