Range("A1:A" & totacs).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=
_
Columns("G:H"), Unique:=True

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Jim" wrote in message
...
In a macro I calculate the number of rows and assign it
to 'TOTACS'. I then try and use TOTACS in a Range
statement but it will not let me. How do I go about doing
this? Below is my code:

totacs = dmclastrow + authlastrow

Range("A2").Select

Range("A1:"totacs).AdvancedFilter
Action:=xlFilterCopy, CopyToRange:= _
Columns("G:H"), Unique:=True