Como crerar un código de rango

Tengo esta macro

Sub ValoresUnicos()

Dim listaOrigen As Range

On Error Resume Next

Set listaOrigen = Application.InputBox _

(Prompt:="Rango de datos origen:", Title:="Seleccionar rango", Type:=8)

listaOrigen.AdvancedFilter _

Action:=xlFilterCopy, CopyToRange:=ActiveCell, Unique:=True

Canceled:

End Sub

Lo que quiero es que en lugar que mande el inputbox para asignarle el rango de celdas se lo de en automático sabien do que el rango siempre vaser en la columna c