Need a check on Columns and cells for empty/null cells past a column header

Need a check on cells for empty/null cells  past a column header

vba excel 2010

I have this code trying to count my rows:  The data will either be in Column 1(a)   Or Column 2(b)
While Len(.Cells(lastRow, 1)) > 0 Or Len(.Cells(lastRow, 2)) > 0
                lastRow = lastRow + 1
Wend
The column Header are always in rows 3

Sometimes in Column1 the cells will be empty and i need to calculate the rows in Column2
Both Column cells will never be both filled in:

Will always look like this:
Column1            Column2
account              track       <----   row 3
11111
22321
445436

Or
Column1            Column2
account              track           <----   row 3
                            32de4
                            656768yu
                           65tgty

The code above seems ok(working), just wanting to make sure

Thanks
fordraiders
LVL 3
FordraidersAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ShumsExcel & VBA ExpertCommented:
Hi,

Instead of Loop you may use below code:
Sub CountNonBlankCells()
Dim Ws As Worksheet
Dim LRow As Long
Set Ws = Worksheets("Sheet1") 'Change your sheet name here
LRow = Ws.UsedRange.Rows(Ws.UsedRange.Rows.count).Row
Application.ScreenUpdating = False
Ws.Range("C2").Value = WorksheetFunction.CountA(Ws.Range("A3:B" & LRow))
Application.ScreenUpdating = True
End Sub

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Roy CoxGroup Finance ManagerCommented:
Why not use a formula? COUNTBLANK returns a count of empty cells in a range

=COUNTBLANK(Range)

COUNTBLANK function

The above would be dynamic if you used a Table with a Total Row
FordraidersAuthor Commented:
THANKS
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Office

From novice to tech pro — start learning today.