Please Note: This article is written for users of the following Microsoft Excel versions: 2007, 2010, 2013, 2016, 2019, 2021, 2024, and Excel in Microsoft 365. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: Jumping to the Real Last Cell.
Written by Allen Wyatt (last updated May 23, 2026)
This tip applies to Excel 2007, 2010, 2013, 2016, 2019, 2021, 2024, and Excel in Microsoft 365
Diane wrote about a problem she was having with a file imported into Excel. The file, created by a non-Excel program, contains 50,000 records, but only the first 87 records contain any data. When the file is imported, pressing Ctrl+End moves to cell J50000 instead of cell J87. Diane was wondering how to make Excel jump to the end of the real data—J87.
The first thing to try is to simply save your workbook, get out of Excel, and then reopen the workbook. Doing so "resets" the end-of-data pointer in the workbook, and you should be fine.
If that doesn't solve the problem, then it is very likely that the data you imported into Excel included non-printing characters, such as spaces. If these are loaded into cells, Excel sees them as data, even though you don't. To fix the workbook by deleting the data, select row 88 (the one right after your data) and then hold down the Shift and Ctrl keys as you press the Down Arrow. All the rows from 88 through the last row in the worksheet should be selected. Press the Delete key, save the workbook, and reopen it. Ctrl+End should work fine.
If you have quite a few of these files you need to "clean up," or if you need to do it on a regular basis, then you need a macro to help you. Consider the following macro:
Sub ClearEmpties()
Dim c As Range
Dim J As Long
J = 0
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each c In Selection.Cells
J = J + 1
StatusBar = J & " of " & Selection.Cells.Count
c.Value = Trim(c.Value)
If Len(c.Value) = 0 Then
c.ClearFormats
End If
Next
StatusBar = ""
End Sub
This macro selects all the cells in the worksheet that contain constants (in other words, they don't contain formulas). It then steps through each of those cells and uses the Trim function to remove any leading or trailing spaces from the contents. If the cell is then empty, any formatting is cleared from the cell.
When the macro is done, you can save and close the workbook, reopen it, and you should be able to use Ctrl+End to go to the real end of your data. If this still doesn't work, it means that the cells being imported into the workbook have some other invisible, non-printing character in them. For instance, there could be some bizarre control characters in the cells. In this case, you need to talk with whoever is creating your import file. The best solution, at this point, would be for the person to modify their program so it doesn't include the "trash" that Excel is mistaking for valid cell content.
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (9811) applies to Microsoft Excel 2007, 2010, 2013, 2016, 2019, 2021, 2024, and Excel in Microsoft 365. You can find a version of this tip for the older menu interface of Excel here: Jumping to the Real Last Cell.
Best-Selling VBA Tutorial for Beginners Take your Excel knowledge to the next level. With a little background in VBA programming, you can go well beyond basic spreadsheets and functions. Use macros to reduce errors, save time, and integrate with other Microsoft applications. Fully updated for the latest version of Office 365. Check out Microsoft 365 Excel VBA Programming For Dummies today!
If you are using an older version of Excel, you may discover one day that the online help system no longer works. This ...
Discover MoreNeed to understand who is using a particular workbook? There are a number of ways you can find out, as discussed in this tip.
Discover MoreDoes your worksheet or workbook not always recalculate like you expect? If so, then some of the ideas in this tip may ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
2026-05-26 17:10:35
J. Woolley
Re. my most recent comment below, these changes will make the ClearEmpties3 macro run faster.
Replace this statement
If Len(Trim(ConvUniSpaces(WorksheetFunction.Clean(c.Value)))) = 0 Then
with this statement
If Len(RemoveUniSpaces(WorksheetFunction.Clean(c.Value))) = 0 Then
and replace the ConvUniSpaces function with the following function:
Function RemoveUniSpaces(Text As String) As String
Const UniSpaces = "\s|[\u00A0\u2000-\u200A\u202F\u205F\u3000]"
With CreateObject("VBScript.RegExp")
.Pattern = UniSpaces: .Global = True
RemoveUniSpaces = .Replace(Text, vbNullString)
End With
End Function
It might be necessary to use VB Editor's Tools menu to Reference the Microsoft VBScript Regular Expressions 5.5 library. The latest version of the VBA library includes RegExp; in this case, you can replace this late binding statement
With CreateObject("VBScript.RegExp")
with this statement
With New RegExp
for early binding, but the macro will probably fail when using Excel 2024 or an earlier version.
2026-05-25 15:32:26
J. Woolley
@Alex Blakenburg
Thank you for your comment. I was not aware the SpecialCells problem was fixed in Excel 2010. Here's another version of the macro that addresses merged cells and Unicode space characters plus status bar display.
Sub ClearEmpties3()
Dim c As Range, J As Long, K As Long, sSB As String, bDSB As Boolean
ActiveSheet.UsedRange.Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Select
If Err Then Exit Sub
On Error GoTo 0
sSB = Application.StatusBar
bDSB = Application.DisplayStatusBar
Application.DisplayStatusBar = True
K = Selection.Cells.Count
For Each c In Selection
J = J + 1: Application.StatusBar = J & " of " & K
If Len(Trim(ConvUniSpaces(WorksheetFunction.Clean(c.Value)))) = 0 Then
c.MergeArea.Clear
End If
Next c
Application.StatusBar = IIf(sSB = "FALSE", False, sSB)
Application.DisplayStatusBar = bDSB
ActiveSheet.UsedRange.Select
End Sub
Function ConvUniSpaces(Text As String) As String
Static UniSpaces As Variant, n As Integer
If IsEmpty(UniSpaces) Then
UniSpaces = Array(ChrW(&HA0), "NO-BREAK SPACE", _
ChrW(&H2000), "EN QUAD", _
ChrW(&H2001), "EM QUAD", _
ChrW(&H2002), "EN SPACE", _
ChrW(&H2003), "EM SPACE", _
ChrW(&H2004), "THREE-PER-EM SPACE", _
ChrW(&H2005), "FOUR-PER-EM SPACE", _
ChrW(&H2006), "SIX-PER-EM SPACE", _
ChrW(&H2007), "FIGURE SPACE", _
ChrW(&H2008), "PUNCTUATION SPACE", _
ChrW(&H2009), "THIN SPACE", _
ChrW(&H200A), "HAIR SPACE", _
ChrW(&H202F), "NARROW NO-BREAK SPACE", _
ChrW(&H205F), "MEDIUM MATHEMATICAL SPACE", _
ChrW(&H3000), "IDEOGRAPHIC SPACE")
End If
ConvUniSpaces = Text
If Len(ConvUniSpaces) > 0 Then 'replace UniSpaces with ASCII space
Const A_SPACE = " "
For n = LBound(UniSpaces) To UBound(UniSpaces) Step 2
ConvUniSpaces = Replace(ConvUniSpaces, UniSpaces(n), A_SPACE)
Next n
End If
End Function
2026-05-25 02:57:32
Alex Blakenburg
We don't really have enough information to provide a robust code solution. With the data being "imported" formatting is unlikely to be an issue. Neither macro handles non-breaking spaces (ASCII 160) but that also seems unlikely for an imported file. Both macros will fail if there are merged cells, again unlikely for an imported file.
A non-US regional setting could impact dates in the original macro provided but unlikely to impact numbers (they will stay as numbers despite the use of Trim).
Looping through almost 50k rows 1 cell at a time is not going to be quick. if there a lot of empty cells sprinkled through the 50k rows, you will wind up with a large number of non-contiguous cells in the selection.
@J. Woolley - Re: 8,192 non-contiguous ranges (Areas) limit.
Refer to:
https://jkp-ads.com/rdb/win/s4/win003.htm
"Note: This problem is fixed in Excel 2010
Non-contiguous cells that can be selected in Excel 2010 : 2,147,483,648 cells"
Mind you I tested it on around 30k areas and the macro gets really ... slow as the number of non-contiguous ranges increases.
2026-05-24 10:30:31
J. Woolley
The Tip's ClearEmpties macro starts with the following statement:
Selection.SpecialCells(xlCellTypeConstants, 23).Select
The result will be unreliable unless the user selects all cells (Ctrl+A) before running the macro. And the macro has some undesirable side effects for cells that contain a text constant:
1. If the text is numeric it is converted to a number (non-text).
2. If the text is a date it is probably converted to a number (non-text).
3. If the text has leading or trailing space characters they are removed.
These side effects become permanent if the workbook is saved. Finally, cells that contain only non-printing characters and/or line breaks (with or without space characters) should be cleared but are not.
Here's an alternate version that resolves these issues:
Sub ClearEmpties2()
Dim c As Range
ActiveSheet.UsedRange.Select
For Each c In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
If Len(Trim(WorksheetFunction.Clean(c.Value))) = 0 Then c.Clear
Next c
ActiveSheet.UsedRange.Select
End Sub
ClearEmpties2 ignores the StatusBar because it runs too quickly for the user to notice. ActiveSheet.UsedRange updates the last used cell, so it is not necessary to save the workbook in order to reset Ctrl+End.
Warning: The SpecialCells method fails silently if it identifies more than 8,192 non-contiguous ranges (Areas), but this is unlikely.
2026-05-23 08:14:14
Graham Rice
A couple of points about the "simple" answer :-
There is no need to get out of Excel and reopen the workbook.
After saving, you can keep the workbook open and immediately test the location of the last cell with Ctrl-End.
This resetting of the last cell automatically works for EVERY worksheet in the workbook, not just the active worksheet.
There is no need to repeat the process for the other worksheets.
2026-05-23 06:00:27
Alex Blakenburg
FYI - It is the Save function of the workbook that recalculates the UsedRange on which the Ctrl+End relies. So after the macro Ctrl+End should change after you hit Save. There should be no need to Close and ReOpen the workbook.
PS: Also both references to the StatusBar should say Application.StatusBar (with Option Explicit set - the current code errors out)
Got a version of Excel that uses the ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2026 Sharon Parq Associates, Inc.
Comments