Jen zhruba:
Pro "obrácení" postupu je nutno nahradit cyklus "For Each Cll In Blk.Cells ..... next Cll" cyklem
Dim i as integer
For i = Blk.Cells.Count To 1 Step -1
....
( Cll.Value nahradit výrazem Blk(i) )
....
Next i
a upravit ostatní indexy a hodnoty pro postupu "zprava"