VBA Cell Reference Formula error

[suresh ullanki]

Hi Team,

Can somebody help to fix the issue. I am trying to copy data from AQ column to AP column with visible cells using cell reference. however it is pasting only "RC[1]" for all the cells of AP Column.

Range("$A$1:$BS$20467").AutoFilter Field:=40, Criteria1:="EnterpriseSolutions"
Range("AP1").Offset(1).Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
ActiveSheet.Paste
Range("AP1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("AP2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False