Macro para delegar un rango desde un textbox

Buenas días
Me gustaría que me colaboraran tengo un código que me pinata los datos repetidos, paro quisiera que este código no me pinte los espacios en blanco y que yo le pueda designar el rango en que va actuar desde un texbox
gracias
Sub coloreaDup()
'x Elsamatilde
'controla col A
Range("A2").Select
ultima = Range("A65536").End(xlUp).Row
'recorro hasta la fila última
While ActiveCell.Row <= ultima
'guardo fila para volver del bucle
filax = ActiveCell.Row
'controlo si aún no tiene color
If ActiveCell.Interior.ColorIndex = xlNone Then
    dato = ActiveCell.Value
    Do
    ActiveCell.Offset(1, 0).Select
    If ActiveCell = dato Then
        ActiveCell.Interior.ColorIndex = 4
        'opcional: colorear también el dato original
        Cells(filax, 1).Interior.ColorIndex = 4
    End If
    Loop While ActiveCell.Row <= ultima And ActiveCell.Row <> filax
End If
'paso a la fila sgte y repito el bucle
Cells(filax + 1, 1).Select
Wend
End Sub