Hello

I would like this code to select the next blank cell within the range C6:AB6.
So far it only selects cell C6, i think im doing something obvious wrong.

Private Sub CommandButton1_Click()


Dim lRealLastRow As Long
Dim lRealLastColumn As Long

Unload userform1
Sheets("enter data").Visible = True
Sheets("enter data").Select

Range("C6").Select
On Error Resume Next

lRealLastRow = Sheets("enter data").Cells.Find("", Range("C6:AD2506"), xlFormulas, , xlByRows, xlPrevious).Row
lRealLastColumn = Sheets("enter data").Cells.Find("", Range("C6:AD2506"), xlFormulas, , xlByColumns, xlPrevious).Column
Cells(lRealLastRow + 1, lRealLastColumn).Select

End Sub
My end result will be a code which only selects blank cells within that range and only on certain columns within that range. It will also not select blank cell which are in completley blank rows. I have done a formula to mark the rows not to be counted, it buts "item." in the A column of the rows not to be counted and "Item" in the once which are to be included. But hey, thats abit complicated for now so I think I will try and start with a simpler code and build it up as I go along.

Anyone know what I should do with the above code?