O código que montei verifica se na célula tem informação ou não, e retorna o valor que encontrar.
Function MostrarCarro(pNomeCarro As Range) As String
For Each carro In pNomeCarro
If carro.Value <> 0 Then
MsgBox carro.Value
End If
Next
End Function