Find and Select the Last Row and Column

[Ulisses_Carso]

Hello Guys,

I'm trying to make select code tha finds the Last Row, then find and jump to the Last Column in the same Line and select that Cell

Example: i have 10 columns with 40 lines
Line A with Header, Column A with Data and the rest is blank

This way, the last cell is J40, but i don't know how to find and select that cell, I already tried to merge two codes that find the last row and column separately but no success.

Sub FindLastRow()
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Select
    End With
End Sub

Sub FIndLasCol()
    Dim LastCol As Integer
    With ActiveSheet
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Select
    End With
End Sub

 

[Fluff]

How about

Sub UlissesCarso()
   Cells(Range("A" & Rows.Count).End(xlUp).Row, Columns.Count).End(xlToLeft).Select
End Sub

 

[Ulisses_Carso]

it worked well, but this way it selects the last row and/or last filled column, there is a chance that the last cell is blank.
Assuming that in my example cell J40 is blank, I need to select it anyway because after selecting ths cell i'll expand selection to "E2"

 

[Ulisses_Carso]

sorry, i did that code too but it's not the result that i need

 

[Fluff]

Ok, how about

Sub UlissesCarso()
   With Range("a1").CurrentRegion
      Cells(.Rows.Count, .Columns.Count).Select
   End With
End Sub

 

[Ulisses_Carso]

Thanks dude, now it worked perfectly
i'm feeling a little dumb, this code is so simple, kkk

 

[Fluff]

Glad to help & thanks for the feedback.