Problem mój polega na tym, ze Kod/Loop Zatrzymuje się na ostatnim sformatowanym wierszu. Dążeniem moim jest zęby kod zatrzymał się na ostatnim wierszu w którym kolumna (tak jak w załączniku/arkusz "Bez formatu" E:E zawiera jakąś wartość i pozostał nieczuły na to ze inne kolumny zawierają jakakolwiek wartość lub format
Sub test()
Dim Rng As Range Dim cll As Range
OnError Resume Next Set Rng = Range("E8:E1312").Cells.SpecialCells(xlCellTypeBlanks) Do
Rng.FormulaR1C1 = "=R[-1]C" LoopUntil cll.Value = "END"