This code has worked good for me in the past:

Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range
rng.Copy Destination:=Worksheets("Stepdown").Range("A1")

However, it doesn't copy the formulas in the range to the destination as
formulas but converst them to text. How can I modify my code so that it
copies all the formulas, too?