Dim ws As Worksheet
Set ws = ActiveSheet
For Each cell In ws.Columns(1).Cells
If IsEmpty(cell) = True Then cell.Select: Exit For
Next cell
Ne yapmak istediğinizi tam anlamadım ama aşağıdaki kod ile ilgili alandaki boş hücreleri seçerek işlem yapabilirsiniz.