Private Sub CommandButton1_Click()
Dim rowNum As Integer
On Error Resume Next
Rows(rowNum & "6").Insert Shift:=xlDown
In many cases, you may need to insert a blank new row into a specified position of your worksheet. In this article, we will show you how to insert a blank new row automatically by clicking on a Command Button in Excel.
Office Tab: Bring powerful tabs to Office (include Excel), just like Chrome, Safari, Firefox and Internet Explorer. Save you half the time, and reduce thousands of mouse clicks for you. 30-day Unlimited Free Trial
Kutools for Excel: Save 70% of your time and solve 80% Excel problems for you. 300+ advanced features designed for 1500+ work scenario, make Excel much easy and increase productivity immediately. 60-day Unlimited Free Trial
You can run the following VBA code to insert a blank new row by clicking a Command Button. Please do as follows.
1. Firstly, you need to insert a Command Button. Please click Developer > Insert > Command Button (ActiveX Control). See screenshot:
2. Then draw a Command Button in to the worksheet you need to add new rows, right click the Command Button and click Properties from the right-clicking menu.
3. In the Properties dialog box, enter the displayed text of the Command Button into the Caption box under the Categorized tab, and then close the dialog box.
You can see the displayed text of the Command Button is changed as below screenshot shown.
4. Right click the Command Button again, and then click View Code from the right-clicking menu.
5. Then the Microsoft Visual Basic for Applications window, please replace the original code with the below VBA code into the Code window.
VBA code: Automatically insert blank new row by Command Button
Private Sub CommandButton1_Click() Dim rowNum As Integer On Error Resume Next rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _ Title:="Kutools for excel", Type:=1) Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown End Sub
Note: In the code, CommanButton1 is the name of the Command Button you have created.
6. Press Alt + Q keys simultaneously to close the Microsoft Visual Basic for Applications window. And turn off the Design Mode under the Developer tab.
7. Click the inserted Command Button, and a Kutools for Excel dialog box pops up. Please enter a certain row number where you want to add a blank new row, and then click the OK button. See screenshot:
Then the blank new row is inserted into a specified position of your worksheet as below screenshot shown. And it keeps the cell formatting of the above cell.