Autofill Down When Text to Left is Not Blank

[ryguy7272]

I am trying to find a way to autofill down, when there is data in the column
to the left. I tried a bunch of things, including the macro recorder, and
can’t get a solution. The macro recorder gave me a result such as:
Selection.AutoFill Destination:=Range("C2:C9")

But my range will change all the time and thus I can’t use this hard-code
reference.

Please offer a suggestion or two…



Regards,
Ryan---

 

[Dave Peterson]

Dim LastRow as long
with activesheet
lastrow = .cells(.rows.count,"B").end(xlup).row
.range("C2").autofill destination:=.range("c2:C" & lastrow)
end with

 

[ryguy7272]

Awesome!! Thanks a bunch!!
Ryan---


--
RyGuy

Dim LastRow as long
with activesheet
lastrow = .cells(.rows.count,"B").end(xlup).row
.range("C2").autofill destination:=.range("c2:C" & lastrow)
end with