VBA. Delete row in a range if Values in Column A do not equal Cell B2

[MsPretzel]

I am very rusty on VBA and need some help!
I need to delete rows within a range (rows 6 to 85) if the value in Column A does not equal B2.
I have pasted some example data below

	A	B	C
1	Currency	GBP
2	Employee	Charlie
3
4	Employee	Event name	Value
5	Abi	London	2
6	Becky	Singapore	4
7	Charlie	Paris	3
8	Dave	London	4
9	Ed	Singapore	3
10	Charlie	Paris	6
11	Dave	London	3
12	Ed	Singapore	6
13	Charlie	Paris	4
14	Abi	London	3

<colgroup><col><col><col><col></colgroup><tbody>
</tbody>

 

[James_Latimer]

Can you please post what worked so that anyone in future can see what the solution was? Thanks mate, glad its working for you!

 

[Fluff]

Both codes should work.
I'm thinking along on the same lines as James.
In a blank cell enter =LEN(B2)
& in another blank cell enter =LEN(A7) Pointing to a cell that = B2
Do both formulae give the same results?

 

[MsPretzel]

They both worked, I went back and did a thorough check, I'd added an extra space in between a first and last name!
It is really appreciated, saved me from going completely crazy!

 

[Fluff]

Glad you got it sorted & thanks for the feedback