How Adding rows automatically

Thanks to this free vba code you will insert an ActiveX Control which will add rows to your table automatically.
Your worksheet gains some code and you will save bunch of time.

Pivot table data preparation

Consider the data. Go to ribbon. Click Developer > Insert and from ActiveX Controls chose a Command Button.

insert activeX forms

Draw a button like shown below.

command button

How to auto insert row?

Right click the command button and choose Properties.

properties

In Caption field change the text as Add Row.

caption add row

When you double click the button a form will appear like this below.

sheet1 code

Put the code like shown below. While keeping in mind the sheet name, range according to your data.

Private Sub CommandButton1_Click()

Sheets("Sheet1").Range("A4").Select
ActiveCell.EntireRow.Insert Shift:=xlDown

Sheets("Sheet1").Range("A4:E4").Select
Selection.Borders.Weight = xlThin

End Sub

vba code

Click the Design mode to off design mode.

design mode off

Every time when you click the Add Row button, a new row will add in your data like shown below.

add row button works

Note: Of course you can improve that VBA code. But to do this you need to know a little bit of VBA in Excel. Just click VBA in the menu on the top of the page and learn VBA in Excel.

Template

You can download the Template here – Download

RELATED ARTICLESMORE FROM AUTHOR