I ran into a problem when I try to add the first 10 even numbers in a column regardless of the number of inputs someone has entered into said column. 

The issue occurs when there are less than 10 inputs (in my case 7) and I have tried to break the loop if there are no more numbers after the last one but it doesn't seem to work as it crashes Excel; most probably because it loops infinitely.

The original code was fine until I entered below 10 even numbers. When I did it would loop infinitely and crash so I inputted a forceful break in the code (hence the `Count=999`) but it does not seem to work

```
Sub TenPosInt()

    Dim Total As Integer, size As Integer, myRange As range
    Dim Count  As Integer
    Count = 1
    Set myRange = range("W:W")
    size = WorksheetFunction.CountA(myRange)

    While Count <= 10
        If IsEmpty(Cells(Count, "W")) Then
            Count = 999
        End If

        If Cells(Count, "W").Value Mod 2 = 0 Then
            Total = Total + Cells(Count, "W").Value
            Count = Count + 1
        End If
    Wend

    MsgBox Total

End Sub

```

My Inputs are currently `2,4,6,5,2,4,6,8,1,3,5` so it does not meet the 10 even integers, however I still want it to run regardless (hence the `Count=999` line). The correct return should be 32.