<div>
Try a snippet like this:<br />
<br />
<br />
Dim LastR As Long<br />
With ActiveSheet<br />
&nbsp; &nbsp; LastR=.cells(.rows.count,1<wbr />).end(xlUp<wbr />).row<br />
&nbsp; &nbsp; .Range(lastr+1 &amp;&nbsp;&quot;:&quot; &amp;&nbsp;.rows.count).delete<br />
End with
</div>


Try a snippet like this:


Dim LastR As Long
With ActiveSheet
    LastR=.cells(.rows.count,1).end(xlUp).row
    .Range(lastr+1 & ":" & .rows.count).delete
End with

<div>
The above code suggestions would need to be modified, if Column A for some reason doesn't always have the last row of data.<br />
<br />
Otherwise, perhaps UsedRange could be used to avoid that...<br />
<br />
This should work:<br />
<br />
With ActiveSheet<br />
&nbsp; &nbsp; &nbsp;.Range(.Cells(UsedRange.Ro<wbr />ws.Count+1<wbr />,1),.Cells<wbr />(.Rows.Cou<wbr />nt,1)).Ent<wbr />ireRow.Del<wbr />ete<br />
End With<br />
<br />
Dave
</div>


The above code suggestions would need to be modified, if Column A for some reason doesn't always have the last row of data.

Otherwise, perhaps UsedRange could be used to avoid that...

This should work:

With ActiveSheet
     .Range(.Cells(UsedRange.Rows.Count+1,1),.Cells(.Rows.Count,1)).EntireRow.Delete
End With

Dave

<div>
&gt;&gt;The above code suggestions would need to be modified, if Column A for some reason doesn't always have the last row of data.<br />
<br />
The above was miss-stated. &nbsp;Michael74's code would work just fine.<br />
<br />
Dave
</div>


>>The above code suggestions would need to be modified, if Column A for some reason doesn't always have the last row of data.

The above was miss-stated.  Michael74's code would work just fine.

Dave

<div>
<div class="content wysiwyg-content">
I need to go to the last row with data, and delete all the rows after that row. &nbsp;<br />
<br />

</div>
</div>


I need to go to the last row with data, and delete all the rows after that row.  



Delete All Rows after Last Row with Data

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