VBA Code to Find the Last Used Cell in a Column in Excel

VBA Code:

' VBA Code to Find the Last Used Cell in a Column in Excel

Sub FindLastUsedCellInColumn()
    Dim lastCell As Range
    Dim lastUsedRow As Long
    
    ' Specify the column number or letter
    Const columnNumber As Long = 1 ' Replace with the desired column number
    'Const columnLetter As String = "A" ' Replace with the desired column letter
    
    ' Find the last used cell in the specified column
    With Worksheets("Sheet1") ' Replace with the name of your worksheet
        ' If using column number
        lastUsedRow = .Cells(.Rows.Count, columnNumber).End(xlUp).Row
        
        ' If using column letter
        'lastUsedRow = .Range(columnLetter & .Rows.Count).End(xlUp).Row
        
        Set lastCell = .Cells(lastUsedRow, columnNumber)
    End With
    
    ' Display the result
    MsgBox "The last used cell in column " & columnNumber & " is " & lastCell.Address
End Sub


Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment