E poi una variazione piccola :

temp=1
Do
DoEvents
'cerca la colonna con il codice cliente
Set CellaFoglioExcel = FoglioExcel.Range("A" & temp)
ContenutoCella = CellaFoglioExcel
'controlla se la cella contiene qualcosa
if trim(ContenutoCella) <> "" then
msgbox("ContenutoCella")
###### righe_vuote = 0
ElseIf Trim(ContenutoCella) = "" Then
righe_vuote = righe_vuote + 1
End If

'se le righe vuote sono dieci allora considero il foglio excel finito
If righe_vuote = 50 Then
Exit Do
End If
temp = temp + 1
Loop

Ho aggiunto la riga con i cancelletti se no esce appena trova 50 righe bianche in tutto e non 50 righe bianche di fila....
Ciao.