Go to second last blank row

NoSparks · #10 05-14-2020, 08:22 PM

Beyond me how you figure A27 is the second blank...
it's the third blank from the bottom and sixth blank from the top.

Try this

Code:

Sub Dave_T_v2()
    Dim lr As Long, i As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    For i = lr To 1 Step -1
        If Cells(i, "A") = "" Then
            If Cells(i - 1, "A") <> "" Then
                Cells(i, "A").Select
                Exit For
            End If
        End If
    Next i
End Sub

If that's not what you're after you'll need to explain a little better.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete comma and space after blank merged value. Also remove Previous space and word before blank	Alex1s85	Mail Merge	4	01-18-2020 11:30 PM
Leaving a Blank Field Blank	migman	Mail Merge	10	08-29-2017 03:28 AM
Formulato say if cell is blank do this, if not blank do this.	mbesspiata	Excel	1	01-17-2015 05:02 AM
Page numberring 1 - blank - 2 - blank etc	Intern	PowerPoint	0	09-02-2011 01:16 AM
How to turn all blank lines into non-blank for legal forms	sieler	Word	3	04-12-2009 01:38 PM