ovo sam riješio ,ali ako može još jedna mala pomoć (ako je to izvedivo).........kada ubacim u formulu "-1" umjesto 1,...ActiveCell.FormulaR1C1 = "x"
Selection.Offset(-1, 0).Select
tada se upiše broj i selektira čelija iznad i dalje se mogu upisivati iznad brojevi,i to radi ako se krene iz nižih redova,ali kad dođe do prvog reda dalje ne može.

Da li postoji način ili formula da kad se upiše broj u A1 prvi red ,da se upiše broj i da ide automatski na drugo mjesto ,a da ostaje ta čelija u prvom redu označena za drugi broj i tako dalje,........u principu obrnut redosljed ,neide novi broj dolje nego novi broj je uvijek na vrhu.