Excel 2010 - makro na dokopírování hodnot

[Daiqon]

Dobrý den všem,

mám na vás prosbičku ohledně makra na dokopírování hodnot. Zadání je jednoduché, viz příloha. Mám sloupec o několika řádcích a potřebuji vždy dokopírovat název předmětu do poslední buňky a před mezerou a po další mezeře opět. V příloze je vidno.

Děkuji.

[Reklama]

[cmuch]

A co použít pro např: D6 =D5 a tak dál.

[Daiqon]

To není přesně to o co mi jde. Potřebuji na jeden klik makra, aby mi to rozkopírovalo aktuální sloupec až do poslední položky a ne aby se zastavilo u první mezery. Mám tu rozpracované toto:

Sub Makro1()
'metoda Select (vyber) aktualni oblast
Selection.CurrentRegion.Select
'metoda Select (vyber) specielni bunky (prazdne)
Selection.SpecialCells(xlCellTypeBlanks).Select
'nastavit vlastnost FormulaR1C1 na vzorec (je v uvozovkach)
Selection.FormulaR1C1 = "=R[-1]C"
'metoda Select (vyber) aktualni oblast
Selection.CurrentRegion.Select
'zbytek makra je popsan v makru KonverzeNaHodnotu
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Problém je, že se zastaví u první mezery a nepokračuje dále s další položkou,....