Autofill Current/Active Column

[Vylent Fyre]

I have a workbook that will have over 20+ tabs and I am wanting to build a macro to do an autofill to last active cell in the current column I have selected. What is the correct code? I have this currently but it doesn't work (obviously ) The only thing consistent will be that the formulas I will need to copy down the whole column will always start in the 12th cell (of the selected column)


Range(ActiveCell.Column).AutoFill Destination:=Range(ActiveCell.Column & _
Cells(Rows.Count, "C").End(xlUp).Row)

I don't want to be forced to specify the Columns... It would require way too much work.

I have a Wend and LOOP macro built for other things, but not sure I can do this for all tabs since the columns I will need to autofill will be different for each tab.

 

[Andrew Poulsom]

Welcome to MrExcel.

What's the significance of using column C there?

 

[VoG]

Perhaps

LR = Cells(Rows.Count, "C").End(xlUp).Row
ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":" & Cells(LR, ActiveCell.Column).Address)

 

[Vylent Fyre]

It shouldn't be using column C at all - I have that from a previously used formula... Could be partly why the code doesn't work.

 

[Vylent Fyre]

Hot doggie! This worked perfectly! Thank you, thank you!!!

 

[VoG]

Then maybe

LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":" & Cells(LR, ActiveCell.Column).Address)