Paste Special from Filtered Range

[somesoldiers]

Hi Guys

Quick one for you. Can you advise the correct syntax to paste special the below as my source data contains formulae which are dropping off when copied? Thanks Noel.

ActiveSheet.Range("$A$1:$BI$5").AutoFilter Field:=34, Criteria1:="3.1 A-Equities"
    Range("AI7:AI" & Cells(rows.Count, "A").End(xlUp).row).SpecialCells(xlCellTypeVisible).Copy _
    Sheets("3.1 A-Equities").Range("A3")

 

[somesoldiers]

thanks guys. have tried all sorts of version of the below to no avail....

 ActiveSheet.Range("$A$1:$BI$5").AutoFilter Field:=34, Criteria1:="3.1 A-Equities"
    Range("AI7:AI" & Cells(rows.Count, "A").End(xlUp).row).SpecialCells(xlCellTypeVisible).Copy
    Sheets("3.1 A-Equities").Range("A3").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[somesoldiers]

nevermind, I got this sorted in the end. Problem was with my turning off autocalc in the wrong place. thanks