Excel macro help needed

I would appreciate help in creating a Microsoft VBA macro.  The macro needs to select the blank cell to the immediate right of contiguous data within the "named grid."  Please look at the enclosed file.  When the macro is run, my goal would be for cell "N5" to be selected with the data that is present so far..
Who is Participating?
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.

Dale HarrisProfessional Services EngineerCommented:
    Do While ActiveCell.Value <> “”
    ActiveCell.Offset(0, 1).Select


Dale Harris
Debra45Author Commented:
Almost there.  If in the example spreadsheet, the time displayed in cell D5 is 12:00 AM (which Excel considers as zero), can the VBA be modified to ignore that column and find the cell in that row that is physically blank?  
Dale HarrisProfessional Services EngineerCommented:
Can you change 12:00 AM into a Text type field, instead of time field?

Will this mess up the entire thing?

Dale Harris
Expert Spotlight: Joe Anderson (DatabaseMX)

We’ve posted a new Expert Spotlight!  Joe Anderson (DatabaseMX) has been on Experts Exchange since 2006. Learn more about this database architect, guitar aficionado, and Microsoft MVP.

Debra45Author Commented:
No.  It is pulling from a formula on another sheet in the workbook, and must display as a time..
Dale HarrisProfessional Services EngineerCommented:
We can use Text instead of value.

    Do While ActiveCell.Text <> “”
    ActiveCell.Offset(0, 1).Select

Dale Harris
You can do it in a single shot without looping as below using SpecialCells



Sub GetFirst()
On Error Resume Next
Range([d5], Cells(5, Columns.Count)).SpecialCells(xlBlanks).Cells(1).Activate
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
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 Excel

From novice to tech pro — start learning today.