Auto insert row while entering raw data

M

mandapanda625

As I am typing data into Column A, I would like my spreadsheet to
automatically add a row between the typed data and my summary two rows below
(when I press Enter). As a result, I would like two blank rows always
present between these pieces of information. If I cannot have this
automatic, at least a maco would be helpful.

Thanks!
 
G

Gord Dibben

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
On Error GoTo CleanUp
Application.EnableEvents = False
With Target
If .Value <> "" Then
.Offset(1, 0).EntireRow.Insert
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub

This is sheet event code. Right-click on the sheet tab and "View Code"

Copy/paste the code into that sheet module. Alt + q to return to the Excel
window.

Assumes you already have two blank rows betweeb current data and summary row.


Gord Dibben MS Excel MVP
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Automatically insert row 5
How do I insert a row after every row of data in XL? 5
Insert blank rows 2
Import raw data into different worksheet 1
How do I insert a row between every line in my spreadsheet? 3
Auto update row numbers after inserting new row 4
My spreadsheet in some cases automatically adds a row below how? 5
Auto insert of blank row depending on data 4

Top