Opgelost automatisch naar nieuwe regel scrollen?

[Cartucci]

Onderstaande code maakt een nieuwe lege regel aan in een lijst. Wordt de lijst langer, dan is de nieuw aangemaakte regel niet meer zichtbaar in het actieve scherm en moet er naartoe gescrold worden. Is het onderstaande script uit te breiden met een regel die er voor zorgt dat na aanmaak van de nieuwe regel, de cursor in kolom A op de nieuwe regel geplaatst wordt?

Sub Selecteer_Lege_Regel()



'selecteert de eerstvolgende lege regel

'negeert tussenliggende lege regels

'kopieert gegevens uit bovenliggende regel

ActiveSheet.Unprotect

Set LR = Range("A" & [a10000].End(xlUp).Row)

LR.Range("A1:d2,f1:f2,l1:l2,s1:s2,v1:v2,w1:w2").FillDown

ActiveSheet.Protect

End Sub

 

[snb]

Gegevens dienen in Excel in een 'dynamische/intelligente' tabel geschreven te worden.
Daarin moeten geen lege regels voorkomen.
Deze tabel maakt automatisch een nieuwe tabelregel aan als je in de eerste lege cel gegevens invoert.
Daarvoor is geen enkele VBA-code nodig.