<div>
You can try code like this. It selects the first blank cell in the range you specified, and you can change the range in the third line of the code.<br />
<br />

<pre><code id="code-20-39306131-1">Sub FindBlank()

    Dim rng As Range
    Set rng = Range(&quot;$F$15:$F$20,$F$22:$F$27,$F$29:$F$34,$F$36:$F$41&quot;)
    For Each cell In rng
        If cell.Value = &quot;&quot; Then cell.Select: Exit Sub
    Next cell
    
End Sub</code></pre>
</div>


You can try code like this. It selects the first blank cell in the range you specified, and you can change the range in the third line of the code.



Sub FindBlank()

    Dim rng As Range
    Set rng = Range("$F$15:$F$20,$F$22:$F$27,$F$29:$F$34,$F$36:$F$41")
    For Each cell In rng
        If cell.Value = "" Then cell.Select: Exit Sub
    Next cell
    
End Sub

<div>
No need to iterate. You can use
<pre><code id="code-20-39306188-1">Sub a()
Debug.Print Range(&quot;$F$15:$F$20,$F$22:$F$27,$F$29:$F$34,$F$36:$F$41&quot;).SpecialCells(xlCellTypeBlanks).Offset(, 1).Cells(1).Address
End Sub</code></pre>
</div>


No need to iterate. You can use

Sub a()
Debug.Print Range("$F$15:$F$20,$F$22:$F$27,$F$29:$F$34,$F$36:$F$41").SpecialCells(xlCellTypeBlanks).Offset(, 1).Cells(1).Address
End Sub

<div>
<div class="content wysiwyg-content">
I am trying to find a formula/code to find the first blank in the range below.Thanks<br />
$F$15:$F$20,$F$22:$F$27,$F<wbr />$29:$F$34,<wbr />$F$36:$F$4<wbr />1
</div>
</div>


I am trying to find a formula/code to find the first blank in the range below.Thanks
$F$15:$F$20,$F$22:$F$27,$F$29:$F$34,$F$36:$F$41

First blank in a non contiguous range

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.