A aj si rozmýšľal nad tým, čo som Ti poslal v predošlej domácej úlohe?
Tam predsa tiež bolo potrebné prejsť všetky bunky stĺpca, ktoré si chcel vyčistiť...
A tam máš i odpoveď.

Časť:

    For r = 3 To PocR
        Cells(r, ActiveCell.Column) = Vycisti_http(Cells(r, ActiveCell.Column))
    Next r

robí presne to, čo chceš: "prejdi všetky bunky v aktívnom stĺpci od tretieho po posledný riadok a všade vyčisti".
Žiaľ, ak ti to z tých riadkov nie je jasné, ťažko chcieť tvoriť vlastné makrá...

Nasledujúci kód Ti zarovná vľavo všetky bunky aktuálnej oblasti počínajúcej bunkou A1 (ak A1 nie je súčasťou aktuálnej oblasti, treba prispôsobiť alebo určiť požadovanú oblasť) obsahujúcou (teda nie rovnajúcou sa ale obsahujúcou) text "http":

Sub Zarovnanie()
Dim rng As Range
Dim cell As Range
Set rng = Range("A1").CurrentRegion
For Each cell In rng
    If InStr(1, cell.Value, "http") > 0 Then cell.HorizontalAlignment = xlLeft
Next cell
End Sub