Data Advanced filter problem

[mikemcbain]

G'day Magicians,

I am using Windows 10 and Excel 365. Apologies in advance that I cannot get XL2BB to work.
I have my worksheet set up for Data Advanced filtering which works fine when I use my mouse and Click Data Advanced Copy to another location Unique records only and OK the extracted output range fills with the required data.
I have formulae in AU2:AY2 under headers which calculate and show as follows.....

AU	AV	AW	AX	AY
BETS	WinP/L	WPOT%	$WIN	$PLC
42​	$13.57​	-32.3%​	$28.43​	$40.84​

But when I try to do the same thing using the following recorded macro....

Sub TrainResults()

'

' TrainResults Macro

'

Application.Goto Reference:="R1C103"

Selection.End(xlDown).Select

Selection.Copy

Application.Goto Reference:="R2C17"

ActiveSheet.Paste

Application.CutCopyMode = False

Application.CutCopyMode = False

Application.CutCopyMode = False

Range("A7:AT999987").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _

Range("A1:AT2"), CopyToRange:=Range("AZ7:CS7"), Unique:=True

Range("A1").Select

End Sub

Those Cells come up like this....

AU	AV	AW	AX	AY
BETS	WinP/L	WPOT%	$WIN	$PLC
0​	$0.00​	#DIV/0!​	$0.00​	$0.00​

I have tried all manner of VBA code and fancy macros all with the same result.
Is it just me and my system or can someone suggest something to try that my poor skills may not have found yet?

With thanks

Old Mike.

 

[JamesCanale]

I don't think that you need a macro to solve this problem - with 365. Post some of your input data and what you would like your calculated output data to be. Some combination of the newer FILTER and UNIQUE functions should make quick work of it, and no clumsy macros messing up your fun.

 

[mikemcbain]

Thanks James I am working on your suggestion.....Mike.