Macro To Find Value In Cell And Copy / Paste To Other Cell

I have the following code, so far:

Code:

Sub CopyPasteValue()
Dim ARow
Dim AColumn
Dim BRow
Dim BColumn
Dim Value
AColumn = 1

[Code]....

What I want it to do is to start in cell B1 and look down until it finds a non-blank cell; copy the contents of that cell. I then need it to go to the same row Col A and go down from until it finds the first non-blank cell then paste into the corresponding cell in Col B. It should continue this way through the rest of the worksheet. There is no set pattern to say to go down 5 rows or such. Also the number of pastes in each step is variable from 1 to ??

In my worksheet, the first non-blank cell in Col B is cell B3 and the first non-blank cell in Col A is A7. The paste should occur in cells B7:B10 because the next non-blank cell in Col A is A11.