Macro for Fill Handle

[chrono2483]

Hello,

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A
[/TD]
[TD]B
[/TD]
[TD]C
[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD][/TD]
[TD]December 1
[/TD]
[TD]Hot Dog
[/TD]
[TD]2
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD][/TD]
[TD]December 1
[/TD]
[TD]Hot Dog
[/TD]
[TD]3
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD][/TD]
[TD]December 1
[/TD]
[TD]Hot Dog
[/TD]
[TD]4
[/TD]
[/TR]
[TR]
[TD]4
[/TD]
[TD][/TD]
[TD]December 1
[/TD]
[TD]Hot Dog
[/TD]
[TD]6
[/TD]
[/TR]
[TR]
[TD]5
[/TD]
[TD][/TD]
[TD]December 1
[/TD]
[TD]Hamburger
[/TD]
[TD]7
[/TD]
[/TR]
[TR]
[TD]6
[/TD]
[TD][/TD]
[TD]December 1
[/TD]
[TD]Hamburger
[/TD]
[TD]8
[/TD]
[/TR]
[TR]
[TD]7
[/TD]
[TD][/TD]
[TD]December 1
[/TD]
[TD]Hamburger
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]8
[/TD]
[TD][/TD]
[TD]December 2
[/TD]
[TD]Hot Dog
[/TD]
[TD]5
[/TD]
[/TR]
[TR]
[TD]9
[/TD]
[TD][/TD]
[TD]December 2
[/TD]
[TD]Hot Dog
[/TD]
[TD]7
[/TD]
[/TR]
</tbody>[/TABLE]


Hoping someone could help with the following. I searched online for a macro (piece together a macro to do the following):

I want to be able to auto fill/fill handle data in Column C, so that C1 copies down to C4, then find the next Cell with data in Col C (C5) and copy down to C7, etc.

I've tried the following:

Dim lRow As Long
lRow = Cells(Rows.Count,1).End(x1up).Row
Range("C:C").autofill destination:=range("C:C" & cells(rows.count,"C").end(xlup).row)

But I don't think I've applied the code correctly.

Would anyone be able to help?

Thank you.

 

[Norie]

Do you want to fill in the blanks in column C?

 

[Klister]

perhaps this as part of the loop

        If ActiveSheet.ActiveCell.Value = "" Then
        ActiveSheet.ActiveCell.Value = ActiveSheet.ActiveCell.Offset(-1, 0).Value

also, how are you determining when to end the loop

 

[MARK858]

It won't resolve your issue but just for future reference the red 1 in the below should be a lower case L.

Cells(Rows.Count,1).End(x1up).Row