Sub posun_radek_sloupec()
Dim RNG As Range, Bunka As Range, Pocet As Long
Application.ScreenUpdating = False
For Each Bunka In Columns("D:D").SpecialCells(xlCellTypeBlanks).Offset(0, -1).Cells
Bunka.Copy Bunka.Offset(-Pocet, -1)
Pocet = Pocet + 1
If Pocet = 1 Then Set RNG = Bunka.Resize(, 2) Else Set RNG = Union(RNG, Bunka.Resize(, 2))
Next Bunka
RNG.Delete Shift:=xlShiftUp
Application.ScreenUpdating = True
End Subcitovat
Dim RNG As Range, Bunka As Range, Pocet As Long
Application.ScreenUpdating = False
For Each Bunka In Columns("D:D").SpecialCells(xlCellTypeBlanks).Offset(0, -1).Cells
Bunka.Copy Bunka.Offset(-Pocet, -1)
Pocet = Pocet + 1
If Pocet = 1 Then Set RNG = Bunka.Resize(, 2) Else Set RNG = Union(RNG, Bunka.Resize(, 2))
Next Bunka
RNG.Delete Shift:=xlShiftUp
Application.ScreenUpdating = True
End Subcitovat