Excel Macro revolving around finding a certain number from a list

Here is my question:
I apologize in advance for my poor explanation, but I am trying to create an excel macro formula which will;
1. check the number in row 1 column A
2. see if that same number is present in column B(any row)
3. if it is anywhere in column B, add 1 value to column C of the same row the number was found in column B
4. if there number isn't found anywhere in column B, add the number to the bottom of the list of column B, and add 1 value to column C next to it.
5. repeat this with row 2 column A, then row 3 column A, etc. until the last number in column A.

for example,
A B C
3 4 1
6 3 1
__8 2

would turn into:
3 4 1
6 3 2
__8 2
__6 1

it would be greatly appreciated if someone can make a macro formula for this or even explain one of the steps.
thanks.

skolzi
Can you explain what ran wrong the macro sent, with your sample it seems OK!
In your code you are doing a " .Find" but what is the range used: See "With WkRg" in my code
Better send the sample you are using to debug
PCI