makroon rivin lisäys

vähän ylimalkaista on kyselyn tiedot...
Oletkos kokeillut nauhoittaa makroa. Ja jos ei toimi niinhän voit aina kysellä apuja täältä uudelleen

tommosta koodia nauhoitin lykkää kun esim. riville 3 lisää uuden tyhjän rivin

Sub Macro1()
Rows("3:3").Select
Selection.Insert Shift:=xlDown
End Sub

sama siistittynä

Sub Macro1()
Rows("3:3").Insert Shift:=xlDown
End Sub

Keep EXCELing
@Kunde

kyllä tuo onnistuu mutta homma onkin enemmän kiinni siitä etten saa lisättyö tietoja.


Elikkäs hommassa on esim rivi 3 jossa on tiedot ja haluan aina kun painan valintanäppäintä "uusi tuote" luoda uuden rivin joka edelliseltä riviltä viivakoodin tiedot siten että tieto "vedetään" hiirellä alas uudelle riville jotta viivakoodi muuttuu taas ainutkertaiseksi.
toivottavasti tämä selvitti asiaa edes vähän paremmin!