Jelikož si nenapsal přesné informace, vycházel sem z Tvého prvního dotazu.
Datumy jsou ve sloupci N a začínají na řádku 8, makro pokračuje dokud nenarazí na prázdnou buňku.

Případně si to uprav

Sub apostrof()
sloupec = "N"
radek = 8

Do While Cells(radek, sloupec) <> ""
    Cells(radek, sloupec) = "'" & Cells(radek, sloupec)
    radek = radek + 1
Loop
End Sub