Look For Cells That Meet 2 Criteria

I have built the following code which should look through a data sheet and then work out the instances where it meets the following criterias:

= "Client A"
= "First letter of surname is "a"

The code is as follows:

Public rowcn
Sub compare()
Dim rngTemp As Range
Dim intCounter As Integer
loop_col = "Client A"
data_sheet = "Data"
target_sheet = "Summary"
rowcn = 2
Do.............................