Excel VBA Tutorial | Find Final Row & Last Column

Subscribe to my videos on YouTube

In this video you will see:

• One Method of Finding the Final Row on a Sheet
• One Method of Finding the Final Column on a Sheet
• Creation of a Class Module

Source Code of Class:

Private Function pFinalRow() As Long
    'This Function is dependant on data being present in column A (an longer or equal in length that other columns)
    pFinalRow = Cells(Application.Rows.Count, 1).End(xlUp).Row
End Function

Private Function piFinalCol() As Long
'This Function is dependant on FinalRow returning the correct value.
    Dim rInt As Long
        rInt = ActiveSheet.UsedRange.Count
        piFinalCol = rInt / FinalRow
End Function 

Private Function psFinalCol() As String
'This Function is dependant on FinalRow returning the correct value.
    Dim rInt As Long
        rInt = ActiveSheet.UsedRange.Count
        psFinalCol = Chr((rInt / FinalRow) + 64)
End Function

Public Property Get FinalRow()
    FinalRow = pFinalRow
End Property

Public Property Get iFinalCol()
    iFinalCol = piFinalCol
End Property 

Public Property Get sFinalCol()
    sFinalCol = psFinalCol
End Property