Čiže chceš makro, kde Ty určíš, ktorý stĺpec má prečistiť.
V module s Tvojou čistiacou funkciou doplň makro:

Sub CistiStlpec()
    Application.ScreenUpdating = False
    Dim r As Integer
    Dim PocR As Integer
    PocR = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
    For r = 3 To PocR
        Cells(r, ActiveCell.Column) = Vycisti_http(Cells(r, ActiveCell.Column))
    Next r
End Sub

Spustením makra sa prečistí stĺpec, v ktorom sa práve nachádza aktívna bunka. Čiže nemusíš ani zadávať, o ktorý stĺpec Ti ide, stačí sa v ňom nachádzať.
Stĺpec sa čistí počínajúc tretím riadkom, keďže v prvých dvoch riadkoch máš záhlavie.

Pokiaľ si k makru priradíš klávesovú skratku, bude to najpohodlnejšie.