VBA to Jump to the last row excluding blanks

[SanjayGMusafir]

Hi Experts,

I got the underneath VBA from this forum itself. It was (is) working fine. But recently to make my work faster, I have added few blank rows at the bottom. Number of blank rows to my structured table keep varying depending upon how many I used and how many I may randomly add.

So can there be some improvement in VBA to skip the blank rows and go to the last active row of the table.

Just to help, if it may, the rows that I add to the table are automatically filled with table formulae, which give Blank value until I input some data in Column H

Thanks in advance

Much appreciated

Sub GoClientsBottom()
'
' GoClientsBottom Macro
'

'
    Sheets("Client").Select
    
    'To reset Zoom levels of the sheet
    Call ZoomReset
    
    Dim LRow As Long
    Dim LCol As Long
    LRow = Cells(Rows.Count, 1).End(xlUp).Row
    LCol = ActiveCell.Column
    
    'To go to last active row of the same Active column
    Cells(LRow, LCol).Select
    
    If ActiveCell.HasFormula Then
        Exit Sub
    Else
        ActiveCell.End(xlUp).Select
        Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 0)).Select
    End If
    
    'ActiveWorkbook.Save
    
End Sub

 

[Joe4]

Not quite sure I understand what you are asking (so much depends on the structure of the data).
Can you show us an example of your data, and explain exactly what it is you are trying to do, in relation to that example?

MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.

 

[SanjayGMusafir]

Hi @Joe4
Thanks for reverting

I would have certainly posted a sample data but my database to so big It won't get copied and pasted here.

Just for your understanding the above code is to go to the bottom of a current column in my structured table.
Then I improvised by adding Cells(LRow, LCol).End(xlUp).Select and realised that when a column contains a formula it jumps to the first row of the table.

So trying to figure out a way where it can move up only until the formula returns NOT a blank value. If you may please help...

Until then I'm working with following to stop at the last cell but it adds to my work than easing out...

If ActiveCell.HasFormula Then
        Exit Sub
    Else
        ActiveCell.End(xlUp).Select
        Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 0)).Select
    End If

Thanks again.

 

[Joe4]

Have a look at VoG's method here: Find last Row in VBA ignoring formula blanks...

 

[SanjayGMusafir]

Have a look at VoG's method here: Find last Row in VBA ignoring formula blanks...

Thanks @Joe4 and @VoG

That was exactly I was looking for.

 

[Joe4]

You are welcome!
Glad we were able to help.