VBA - Ultima entrada en una columna

With ActiveSheet.UsedRange
        LastRow = .Rows(.Rows.Count).Row
    End With

MsgBox LastRow