Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Returning the Last Used Cell in a Column or Row with Worksheet
Function GetLastUsedRow(rg As Range) As Long 
    Dim lMaxRows As Long 
    lMaxRows = ThisWorkbook.Worksheets(1).Rows.Count 
    If IsEmpty(rg.Parent.Cells(lMaxRows, rg.Column)) Then 
        GetLastUsedRow = _ 
            rg.Parent.Cells(lMaxRows, rg.Column).End(xlUp).Row 
    Else 
        GetLastUsedRow = rg.Parent.Cells(lMaxRows, rg.Column).Row 
    End If 
End Function