A makró egy eseményt kezel, ami jelen esetben egy cellába való beírás.

Az első sor egy feltételhez köti a makró futását. Csak akkor hajtódik végre, ha a bevitel helye az A1 cella, és a bevitt érték nem üres string. Ha mindkét feltétel igaz, akkor az A1 fölé beszúr egy cellát.

Ezt így is írhattam volna: Range("A1").Insert Shift:=xlDown, de az [A1] formát most tanultam itt a fórumon, és ki kellett próbálnom. :)

A makrót ahhoz a laphoz kell rendelned, amelyiken működésre akarod bírni. Lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutottál a VB szerkesztőbe. Bal oldalon látszik, hogy az aktuális füzeted aktuális lapján állsz. Jobb oldalon van egy nagy üres lap, oda kell bemásolnod a makrót. 

A füzetbe visszalépve már működik is. Ha az A1-be beírsz valamit, azonnal lejjebb tolja az adatokat.

Ha folyamatosan akarod az A1-be bevinni az adatokat, érdemes beállítani, hogy beírás után ne lépjen tovább a fókusz. Ezt vagy a Beállításoknál teheted meg – de akkor más cellákba való beírásnál is helyben marad a fókusz –, vagy az End If sor elé beírod: [A1].Select, vagy Range("A1").Select.