Thanks
Sub AkamaiMacDaddy()
'
' Akamai Macro
' Macro recorded 9/22/2006 by WorldNow
'
'
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=-27
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="(08/01/2006 - 08/31/2006)", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Range("D254").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-270
Range("C7").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=276
Range("D288").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-300
Range("D7").Select
ActiveSheet.Paste
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Range("C7:D250").Select
Application.CutCopyMode = False
Selection.FillDown
Selection.End(xlUp).Select
Range("D7").Select
ActiveWindow.SmallScroll Down:=309
Range("A320").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Sort Key1:=Range("A320"), Order1:=xlAscending, Key2:=Range( _
"D320"), Order2:=xlAscending, Key3:=Range("F320"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Here is my Macro I have bolded the argument that posses the error
Selection.Copy
Range("E6").Select
Range("D7").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("D7").Select
Application.ScreenUpdating = True
Selection.Copy
Range("F6").Select
Range("E7").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("E7").Select
Application.ScreenUpdating = True
ActiveCell.FormulaR1C1 = _
"=LOOKUP(2,1/((R254C[-4]:R16910C[-4]=RC1)*(R254C[-1]:R16910C[-1]=RC3)),R254C[8]:R16910C[8])"
Range("E7").Select
ActiveCell.FormulaR1C1 = _
"=LOOKUP(2,1/((R254C[-4]:R116910[-4]=RC1)*(R254[-1]:R16910C[-1]=RC4)),R254C[2]:R16910C[2])"
Range("F7").Select
Selection.AutoFill Destination:=Range("E7:E250"), Type:=xlFillDefault
Range("E7:E250").Select
Range("E251").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-244]C:R[-1]C)"
Range("E252").Select
Selection.AutoFill Destination:=Range("F7:F250"), Type:=xlFillDefault
Range("F7:F250").Select
Range("F251").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-244]C:R[-1]C)"
Range("F252").Select
End Sub
Hope this is more informative!
Thanks again!