Excel - macro to lookup cell and add new row

June 2017




Issue


I want to create a macro which will look at for example column A and find the last number entered then add a row below it and to do this every time its ran.

Solution


You can use this macro :


Sub Insert_Row() 
Dim n As Integer 
n = Cells(Rows.Count, 1).End(xlUp).Row  
    Rows(n).Select 
    Selection.Insert Shift:=xlUp 
End Sub

Note


Thanks to aquarelle for this tip on the forum.

Related


Published by iveal. Latest update on April 3, 2010 at 07:26 AM by iveal.
This document, titled "Excel - macro to lookup cell and add new row," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).