Count non blank cells in row x
<p>What Im trying to achieve is to count non blank cells in row <code>lRow</code>. I got error on third line of the macro. I have no idea how to fix it.</p>

<pre><code>Sub CountNonEmptyCells()

    lRow = Cells(Rows.Count, 1).End(xlUp).Row

    Rows(lRow).SpecialCells(xlCellTypeConstants, 23).Cells.Count
    MsgBox lRow

End Sub
</code></pre>