Find Last Cell in column (Ignore formulas)

Oprichnick

Board Regular
Joined
May 30, 2013
Messages
69
Hy All,
I'm having trouble finding a way to find the last cell in column ignoring formulas.

Honestly I found some pieces of code in a already existing thread in this forum.

I tried this one I found, but returns error

Code:
Dim oneArea As Range, finalCell As RangeSet finalCell = ActiveSheet.Range("a1")
For Each oneArea In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Areas
    With oneArea
        If finalCell.Column < .Column + .Columns.Count - 1 Or _
            finalCell.Row < .Row + .Rows.Count - 1 Then
            Set finalCell = .Parent.Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1)
        End If
    End With
Next
Thanks in advance.

Regards
 

Some videos you may like

Excel Facts

Pivot Table Drill Down
Double-click any number in a pivot table to create a new report showing all detail rows that make up that number

Forum statistics

Threads
1,089,674
Messages
5,409,655
Members
403,274
Latest member
Lewis1995

This Week's Hot Topics

Top