Un grazie a Mauro e Eliano di microsoft.public.it.office.excel che mi hanno aiutato a trovare la soluzione, che per completezza riporto qui sotto:
codice:
Public Sub m()
On Error GoTo RigaErrore
Dim sh As Worksheet
Dim lRiga As Long
Set sh = Worksheets("Foglio1")
With sh
For lRiga = 1 To .Rows.Count
If .Cells(lRiga, 1).Interior.ColorIndex = _
xlNone And .Cells(lRiga, 1).Value = "" Then
Cells(lRiga, 1).Select
Exit Sub
End If
Next
End With
RigaChiusura:
Set sh = Nothing
Exit Sub
RigaErrore:
MsgBox Err.Number & vbNewLine & Err.Description
Resume RigaChiusura
End Sub