Macro to find last cell and insert row below

[dmcclel]

I need help creating a macro that will find the last cell in a column that has data in it, then insert a blank row after that cell.
Thanks

 

[circledchicken]

Hi,

Try this (where the number in bold is the column with data in it):

This will insert a blank row before the cell:

Sub Example()
    Cells(Rows.Count, [B]1[/B]).End(xlUp).EntireRow.Insert
End Sub

This will insert a blank row after the cell:

Sub Example()
    Cells(Rows.Count, [B]1[/B]).End(xlUp).Offset(1, 0).EntireRow.Insert
End Sub

 

[Rick Rothstein]

Does this do what you want (adjust the column letter to suit your setup)...

Cells(Rows.Count, "A").End(xlUp).EntireRow.Insert

 

[MikeLiberty]

I need help creating a macro that will find the last cell in a column that has data in it, then insert a blank row.
Thanks

the easiest way I can think of is to use Range("A104876").End(xlup).Insert Shift:=xlDown

You'll need to tweak the range depending on if you want to dynamically change the column you are looking at.


Edit: Cells (Rows.Count,"A") is cleaner