<div>
Hi,<br />
<br />
Would this work in your case:<br />
<br />

<pre><code id="code-20-38800795-1">Sub DeleteAllBelow()
Row = ActiveCell.Row
    Rows(&quot;&quot; &amp; Row &amp; &quot;:1048576&quot;).Select
    Selection.Delete Shift:=xlUp
End Sub</code></pre>
<br />
Change the number of rows to 65536 if you are working with Excel 2003 or older (*.xls files):<br />
<br />

<pre><code id="code-20-38800795-2">Sub DeleteAllBelow()
Row = ActiveCell.Row
    Rows(&quot;&quot; &amp; Row &amp; &quot;:65536&quot;).Select
    Selection.Delete Shift:=xlUp
End Sub</code></pre>
</div>


Hi,

Would this work in your case:



Sub DeleteAllBelow()
Row = ActiveCell.Row
    Rows("" & Row & ":1048576").Select
    Selection.Delete Shift:=xlUp
End Sub


Change the number of rows to 65536 if you are working with Excel 2003 or older (*.xls files):



Sub DeleteAllBelow()
Row = ActiveCell.Row
    Rows("" & Row & ":65536").Select
    Selection.Delete Shift:=xlUp
End Sub

<div>
Yes that works for me.<br />
<br />
Thanks
</div>


<div>
<div class="content wysiwyg-content">
I need some VBA code that will delete all rows below and including the current cell. Some of the cells below will contain data some will be blank. I need the code to clear all data below and including the current cell.<br />
<br />
Thanks
</div>
</div>


I need some VBA code that will delete all rows below and including the current cell. Some of the cells below will contain data some will be blank. I need the code to clear all data below and including the current cell.

Thanks

Delete all rows below and including the current cell

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Microsoft Applications

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.