Loading
Excel.Tips.Net ExcelTips (Menu Interface)

Finding the Last-Used Cell in a Macro

Please Note: This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here: Finding the Last-Used Cell in a Macro.

If you are working in a worksheet, you know that you can press Ctrl+End to jump to the last-cell in the worksheet. What the shortcut does is to choose the cell that represents the intersection of the last column containing data and the last row containing data. Thus, if the last column in which you have data is column F, and the last row in which you have data is row 27, then Ctrl+End will select cell F27.

To do this same task from a macro, you use a very simple command, as shown here:

Sub FindLast1()
    ActiveCell.SpecialCells(xlLastCell).Select
End Sub

This is functionally the same as pressing Ctrl+End. However (and this is a big issue), Excel doesn't dynamically keep track of which rows and columns are the last used in a worksheet. For instance, let's suppose that you open a workbook, press Ctrl+End, and you are taken to cell F27. If you then delete 3 rows and one column, you would expect that Ctrl+End would take you to cell E24. It doesn't; it still takes you to cell F27, until you save the workbook and reopen it.

This same problem affects the macro code shown in the FindLast1 macro; it will take you to the "highest" cell, regardless of which columns or rows you have deleted during the current session.

What's needed is a way to reset the "last cell" indicator, just as if you had saved and reopened the workbook. There is no intrinsic macro command that does that, but there is a way to force Excel to do the reset. All you need to do is adjust the macro as follows:

Sub FindLast2()
    x = ActiveSheet.UsedRange.Rows.Count
    ActiveCell.SpecialCells(xlLastCell).Select
End Sub

This macro always takes you to the proper cell—it works as you would expect Ctrl+End to always work. It works because apparently Excel, when it calculates the Count property for the number of rows in the worksheet, always resets the "last cell" indicator.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (2271) applies to Microsoft Excel 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Excel (Excel 2007 and later) here: Finding the Last-Used Cell in a Macro.

Related Tips:

Comprehensive VBA Guide Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out Mastering VBA for Office 2010 today!

 

Leave your own comment:

*Name:
Email:
  Notify me about new comments ONLY FOR THIS TIP
Notify me about new comments ANYWHERE ON THIS SITE
Hide my email address
*Text:
*What is 5+3 (To prevent automated submissions and spam.)
 
 
           Commenting Terms

Comments for this tip:

Willy Vanhaelen    09 Mar 2015, 12:39
This is a very usefull tip. I included the second macro to my tools collection and assigned it the short-cut key Ctrl+Alt+End. I use that now instead of Ctrl+End.
Zaied    27 Jul 2013, 04:37
Hello Philip,

Thanks for the tips.
But I would like to apply last cell with END command to go in the last row of my position cell. Example is,
my macro have to select range of A1 to A450 where CTRL+END going to F450.
I'll not define the range, it will automatically select the range from my current to the last cell of END.

Zaied
Andrew McQuillen    03 Jun 2013, 05:37
Thanks Philip,
I will look and see if i can use this to finde the average of the last 16 rows.
i did manage to do this but it was naything but slick so i would like a method which was a bit less clunky!!!
best regards
Andrew
PhilP    01 Jun 2013, 06:18
Andrew: I use the following line of code which might be of use to you.

Dim LastRow As Long
LastRow = WorksheetFunction.CountA(Range("A:A")) + 1

The code counts the number of occupied rows in column A and adds 1 to move to the first blank row

In your case change the +1 at the end of the code to -16

The code only works if there are no blank cells in the selected column
Andrew McQuillen    31 May 2013, 05:50
This is a great tip but i wonder if there is a way to modify it to look for the last cell in the row rather than the last used. ie and using the example above instead of finding f27 as the last occupied cell can you find d27 which is the last row that data has been added into.
I want to use this as i would then like to count back 16 rows and take an average of the last 16 numbers which appear within (again using the example above) d11 to d27.
is this whole project possible?

Thanks

Andrew
 
 

Our Company

Sharon Parq Associates, Inc.

About Tips.Net

Contact Us

 

Advertise with Us

Our Privacy Policy

Our Sites

Tips.Net

Beauty and Style

Cars

Cleaning

Cooking

DriveTips (Google Drive)

ExcelTips (Excel 97–2003)

ExcelTips (Excel 2007–2016)

Gardening

Health

Home Improvement

Money and Finances

Organizing

Pests and Bugs

Pets and Animals

WindowsTips (Microsoft Windows)

WordTips (Word 97–2003)

WordTips (Word 2007–2016)

Our Products

Helpful E-books

Newsletter Archives

 

Excel Products

Word Products

Our Authors

Author Index

Write for Tips.Net

Copyright © 2016 Sharon Parq Associates, Inc.