Populate Blank Cells In Column

let's say you have array like this:
___A__
1|value
2|
3|
4|value2
5|
6|value 3

and you want to populate (copy, move values in) the empty cells
___A__
1|value
2|value
3|value
4|value2
5|value2
6|value 3

this code will do as long the last cell in the array is not ""

Sub PopB()

For LoopCount = 1 To ActiveSheet.Range("a65536").End(xlUp).Row
If Mid(Range("a" & LoopCount), 1, 1) <> "" Then _
TheQuestion = Range("a" & LoopCount)
Range("a" & LoopCount) = TheQuestion
Next
End Sub