How to delete all rows below certain row or active cell in Excel?

For deleting all rows below certain row or active cell, this article can help you.

Delete all rows below certain row in Excel with VBA code
Delete all rows below active cell in Excel with VBA code

Delete all rows below certain row in Excel with VBA code

The following VBA code will help you delete all rows below a specific row in Excel.

1. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy and paste the following VBA code into the Code window.

VBA code: Delete all rows below certain rows in Excel

Sub DeleteRowsBelow()
    Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete
End Sub

Note: In the VBA code, number 5 and Sheet1 indicate all rows under row 5 (include row 5) in Sheet1 will be deleted after running the code. You can change them based on your needs.

3. Press F5 key to run the code. Then all rows under row 5 (include row 5) are deleted immediately as below screenshot shown.

Unlock Excel Magic with Kutools AI

• Smart Execution: Perform cell operations, analyze data, and create charts—all driven by simple commands.
• Custom Formulas: Generate tailored formulas to streamline your workflows.
• VBA Coding: Write and implement VBA code effortlessly.
• Formula Interpretation: Understand complex formulas with ease.
• Text Translation: Break language barriers within your spreadsheets.

Enhance your Excel capabilities with AI-powered tools. Download Now and experience efficiency like never before!

Delete all rows below active cell in Excel with VBA code

For deleting all rows just below the active cell row in Excel, you can try the following VBA code.

1. Select a cell which you will delete all rows below it, and then press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy and paste the following VBA code into the Code window.

VBA code: Delete all rows below active cell row in Excel

Sub DeleteAllBelow()
    Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub

3. Press the F5 key to run the code. Then all rows below active cell row (include the active cell row) are deleted immediately.

Related articles:

• How to delete all rows except the first header row in Excel?
• How to delete rows if cell is greater/less than a certain value in Excel?