Myslím, že v tomto případě bude lepší použít vzorec.
=DOSADIT(Bitcoin!B6;".";",")
Koukal jsem ještě, že těch propojených buněk máte víc. Nebylo by lepší ty data kopírovat makrem?
Pokud jsem to pochopil správně, tak třeba takto.
Pokud máš přílohu .xlsm, musíš ji zazipovat.
Akorát jsem se chtěl zeptat. Rozložení listů je pořád stejné nebo se mění počet řádků a sloupců?
nevím jestli Vám to bude takhle vyhovovat, ale jednoduše by se to dalo udělat takto.
Příloha?
Po stisknutí tlačítka nahradit to stále nefunguje?
Mě to frčí.
Já makra moc nedělám, takže by to šlo udělat i líp. Nicméně toto je funkční a pokud to pomůže není co řešit.
Začal bych tím, že jako oddělovač desetinných míst máš tečku.
excel to bere jako text
Třeba?
Trochu prasárnička, ale funguje to. 
Já dělával stejnou chybu.
Člověk se pořád učí.
Jak píše Stalker
stačí změnit z tohoto:
Range("R2").Value = Format(Now, "d.m.yyyy")
na toto:
Range("R2") = Date
Tak?
=IFERROR(INDEX(N8:Y8;1;POZVYHLEDAT($B$3;$N$6:$Y$6;0));"")
Oblíbený formulář Faktura byl vylepšen a rozšířen.

Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.