excel button

[V3rt!g(o)]

e, sad je malo jasnije

Range("A1:A20").Select
Selection.Cut
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").FormulaR1C1 = "x"
Range("A1").Select

Cijela kolona ide dolje, a u A1 ide novi broj. (ovo je za 20 redova, A20 povećaj po želji)

Ili, ak tipkovnicom upisuješ broj u A1, trebaš gumb samo za pomicanje kolone dolje:

Range("A1:A20").Select
Selection.Cut
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select