Excel 2007 :: Autofilling Value To 4 Rows Beneath Last Value In Column?

I am still new to this, and I pulled this code off of another site.

Background:
- Using Excel VBA, 2007
- I have a sheet that has a name in B6, has 4 blank spaces beneath, and then another name, 4 blank spaces, etc.
- I wrote a code to fill each of these 4 blank spaces with the value at the top of each
- The code works, but it won't fill the 4 spaces at the bottom of the column.

What is needed:
-how I can adjust to code below to fill in the 4 spaces beneath the last value in the column?

Code:

Sub FillBlanks()
Dim rRange1 As Range, rRange2 As Range
Dim iReply As Integer

[Code]....