Hi, I have a sub that inserts the fill color of A1 into B2. The code is
supposed to copy the formula down but it doesn't although the fill down code
works all other times. I can manually pull the fill down but don't want my
end users to have to do that. Here is the code. Anyone see anything I
don't? Thanks.

Function GetFillColor(rng As Range) As Long
GetFillColor = rng.Interior.ColorIndex
End Function
Sub GetFillNEW()


Application.ScreenUpdating = False
Application.StatusBar = "Now processing"
Application.DisplayAlerts = False


Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "=GetFillColor(RC[-1])"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B1705"), Type:=xlFillDefault


Application.ScreenUpdating = True
Application.StatusBar = "Ready"
Application.DisplayAlerts = True

End Sub