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 SubNote: 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.
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 Sub3. 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?
Best Office Productivity Tools
Supports Office/Excel 2007-2021 and 365 | Available in 44 Languages | Easy to Uninstall Completely
Kutools for Excel Boasts Over 300 Features, Ensuring That What You Need Is Just A Click Away...
Supercharge Your Excel Skills: Experience Efficiency Like Never Before with Kutools for Excel (Full-Featured 30-Day Free Trial)
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day! (Full-Featured 30-Day Free Trial)
