LASTINCOLUMN

Returns the last cell that contains data in a particular column.

Remarks

* For instructions on how to add a function to a workbook refer to the page under Inserting Functions
* The equivalent JavaScript function is LASTINCOLUMN

Function LASTINCOLUMN(rngInput As Range) 
    Dim WorkRange As Range 
    Dim i As Integer, CellCount As Integer 
    Application.Volatile 
    Set WorkRange = rngInput.Columns(1).EntireColumn 
    Set WorkRange = Intersect(WorkRange.Parent.UsedRange, WorkRange) 
    CellCount = WorkRange.Count 
    For i = CellCount To 1 Step -1 
        If Not IsEmpty(WorkRange(i)) Then 
            LASTINCOLUMN = WorkRange(i).Value 
            Exit Function 
        End If 
    Next i 
End Function