VBA Macro to fill in blank date cells with same preceding date?

[Excel Padwan]

Hello all,

I received an excel report that uses an unfortunate layout. Here's a sample:

1/27/2014
		Item 1	$10
		Item 2	$20
		Item 3	$50
		Item 4	$40
	1/27/2014 Total:		$190
1/28/2014
		Item 1	$50
		Item 2	$40
		Item 3	$70
		Item 4	$100
	1/28/2014 Total:		$260
1/29/2014
		Item 1	$20
		Item 2	$70
		Item 3	$70
		Item 4	$60
		Item 5	$50
		Item 6	$10
	1/29/2014 Total:		$280

<tbody>
</tbody>

Ideally, I would like it to look like this:

1/27/2014
1/27/2014		Item 1	$10
1/27/2014		Item 2	$20
1/27/2014		Item 3	$50
1/27/2014		Item 4	$40
1/27/2014	1/27/2014 Total:		$190
1/28/2014
1/28/2014		Item 1	$50
1/28/2014		Item 2	$40
1/28/2014		Item 3	$70
1/28/2014		Item 4	$100
1/28/2014	1/28/2014 Total:		$260
1/29/2014
1/29/2014		Item 1	$20
1/29/2014		Item 2	$70
1/29/2014		Item 3	$70
1/29/2014		Item 4	$60
1/29/2014		Item 5	$50
1/29/2014		Item 6	$10
1/29/2014	1/29/2014 Total:		$280

<tbody>
</tbody>

Is there a way to simplify autofilling dates this way? Please note, I do not want to autofill a series. Instead, I'm looking for a way to autofill all the blanks cells between two values so that the blank cells copy the first date.

I am using Excel for Mac 2011.

Any help is much appreciated! Thank you!

 

[C Moore]

This should work (assuming it was column A with the dates in it).

Sub fill_dates()
    lastrow = Cells.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
    Range(Range("A1"), Range("A" & lastrow)).Select
    Dim oRng As Range
    Set oRng = Selection
        Selection.SpecialCells(xlCellTypeBlanks).Select
        Selection.FormulaR1C1 = "=R[-1]C"
        oRng.Copy
        oRng.PasteSpecial Paste:=xlValues
End Sub

 

[Excel Padwan]

Woohoo! That did it. Thank you very much - a time saver!