Excel VBA to search the string from 'A1' cell

Hello Excel Experts,
I am developing an VBA code when-in i need to match 2 criterias to pull the values for a specific table.
In the attached file, i have provided the sample data in 2 sheets and the criteria's to match is 'Product1' and 'City1'. With these 2 as criterias, i am determining the table to pull the data/values.

I have developed the code below but this never considers "A1" in its search. In every Do..Until loop, it gives output of only 'Product1/City2'. What i am doing wrong here.? Why doesn't this code it find 'Product1' of 'A1' cell.?
Sorry if my question is too silly. Thanks for your advise in advance.

Sub findProductscity()
Dim prodFound As Boolean
Dim CityFound As Boolean
Dim prodCell As Range

With Sheets("Input").Cells
                Do
                    Set prodCell = .Find(What:="*Product1*", LookIn:=xlValues)       ' NEED TO CORRECT THIS-Doesnt search A1 cell
                        If Not prodCell Is Nothing Then
                            prodFound = True
                                If Right(Trim(prodCell), 4) = Left(Trim(Worksheets("Data").Cells(1, 1).Value), 4) Then CityFound = True
                         End If
                Loop Until prodFound = True And CityFound = True
    End With
End Sub

Perhaps change with

            Set prodCell = .Find(What:="*Product1*", After:=.Cells(Rows.Count, Columns.Count), LookIn:=xlValues)       ' NEED TO CORRECT THIS-Doesnt search A1 cell

There is no data to find in your attached file!

And this?

Sub findProductscity()
Dim prodFound As Boolean
Dim CityFound As Boolean
Dim prodCell As Range

With Sheets("Input").Cells
                Do
                    Set prodCell = .Find(What:="*Product1*", LookIn:=xlValues, LookAt:=xlWhole)
                        If Not prodCell Is Nothing Then
                            prodFound = True
                                If Right(Trim(prodCell), 4).value = Left(Trim(Worksheets("Data").Cells(1, 1).Value), 4) Then CityFound = True
                         End If
                Loop Until prodFound = True And CityFound = True
    End With
End Sub

If you look at cells it looks at the entire sheet, so I do not know why is doesn't look in A1, do remember that Find is case sensitive,

What's the ultimate goal here?
I get the impression that you want to identify a subset of records from a whole table of records and either identify them with a marker or perhaps extract them somewhere else.

Either way I can't see why you would want to use a VBA loop which is inefficient when you have the inbuilt Excel Data Filter functionality. Just use that and then if you want to mark them just use the

Range("A1:A100").SpecialCells(xlCellTypeVisible) = "x"

syntax

@Keebellah

I do not know why is doesn't look in A1

because it starts AFTER and not included cells(1,1) when no notification done

You're welcome
Enjoy Excel and have a look on the rep's star at the bottom left
PCI