Select first and last occurence of a word

Hello everybody
I have these values in range("A1:A10")
A
A
A
A
B
B
B
A
A
A
I used the following line to select the first occurence of "A"

ActiveSheet.Columns(1).Find(What:="A", LookAt:=xlWhole, MatchCase:=False).Select

And used this line to select the last occurence of "A"

ActiveSheet.Columns(1).Find(What:="A", LookAt:=xlWhole, SearchDirection:=xlPrevious, MatchCase:=False).Select

As for the line of the first occurence the code selects A2 not A1

How can make the code select A1 instead of A2?