Setting up Criteria for VBA Macros in Excel

Hello,

I need to set up a loop function that will only output the data of the cheapest house, with a pool.


Here is what I have so far, but my code just seems to be outputting the cheapest house, instead of the cheapest house with a pool:

Sub CheapestHomeWithPool_Click()
Dim lowest, currentHomePrice, numBedrooms, sqFt As Double
Dim Pool As String

ActiveSheet.Range("A5").Select
If IsEmpty(ActiveCell) Then
MsgBox "No home info found"
Exit Sub
End If

lowest = ActiveCell.Value
numBedrooms = CDbl(ActiveCell.Offset(0, 1).Value)
sqFt = CDbl(ActiveCell.Offset(0, 3).Value)
Pool = ActiveCell.Offset(0, 5).Value

If Pool = "Yes" Then

Do
ActiveCell.Offset(1, 0).Select
If IsEmpty(ActiveCell) Then
Exit Do
End If

currentHomePrice = CDbl(ActiveCell.Value)

If currentHomePrice < lowest Then
lowest = currentHomePrice
numBedrooms = CDbl(ActiveCell.Offset(0, 1).Value)
sqFt = CDbl(ActiveCell.Offset(0, 3).Value)
End If
Loop


MsgBox "The cheapest home with a pool is " & FormatCurrency(lowest, 0) & " with " & numBedrooms & " bedrooms and " & sqFt & " square feet."
End If