Thread: Populate cells to the right of a list

Hi All,

I have some code that cleans up same data by writing formulas to the right of the data list. The problem is the code I have is slow as it goes to the very end of the worksheet column and populates all the cells with the formula. Is there a way to just highlight the column to the right of list only base on the lenght of list. There are five different formulas that are added the right of the list as the code goes along, the same problem occurs for each.

Cheers BJ5352

Range("D2").Select
    ActiveCell.FormulaR1C1 = "=FIND(""x"",RC[-1])"
    Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown))

Check out this thread
http://www.excelforum.com/excel-prog...lp-please.html

Firstly we need all the code, secondly which column is the list in?
We need more info but based an what you have given this should be fast!

'Code supplied by Simon Lloyd
'18/11/2010
'Microsoft Office Help
'Excel Conference Poll
Range("D2").Select
Application.Calculation = xlCalculationManual
    ActiveCell.FormulaR1C1 = "=FIND(""x"",RC[-1])"
    Selection.AutoFill Destination:=Range("D2:D" & Range("C" & Rows.Count).End(xlUp).Row)
Application.Calculation = xlCalculationAutomatic