Excel Macro Help

[chrono2483]

Hello,

I pulled some raw data of 15000 rows, and trying to fill in some of the blanks to be able to convert into a pivot table. The challenge is:

1) Each date has several rows corresponding to it:

December 5	Cat	15	345
	Dog	36	564
	Rat	56	654
December 6	Frog	22	794
	Ant	2	242

<tbody>
</tbody>

What I need to do is copy each date into the blank spaced below. Currently, what I have to do to avoid expanding in sequential order is copy/paste the date into the cell below then highlight both cells and double click the bottom/right square box to expand to the last empty cell in the column.

However, with 4 months worth of dates, it can get quite tedious. Is there an easier way to do this?


Thank you!

 

[footoo]

https://www.google.com.hk/webhp?sou...n=1&espv=2&ie=UTF-8#q=excel fill blanks below

 

[My Aswer Is This]

Try this:
Assuming your dates are in column "A"

Sub FillBlanks()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To Lastrow
        If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i, 1).Offset(-1).Value
    Next
Application.ScreenUpdating = True
End Sub