The following code takes about 20 seconds to process,

Sheets("RecordOfRounds").Range("AllRecords"). _
AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("RecordOfRounds").Range("FilterCriteria"), _
CopyToRange:=Sheets("HomeCourse").Range("FilterDestination"), _
Unique:=False

Names are as follows:-
AllRecords
=OFFSET(RecordOfRounds!$A$52,0,0,COUNTA(RecordOfRounds!$A$52:$A$65536),194)
FilterCriteria =RecordOfRounds!$A$1:$E$2
FilterDestination =OFFSET(HomeCourse!$A$52,0,0,1,194)


The following code processes almost instantaneously,

Sheets("RecordOfRoundsDetailed").Range("AllRecordsDetailed"). _
AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("RecordOfRoundsDetailed").Range("FilterCriteriaDetailed"),
_
CopyToRange:=Sheets("HomeDetailed").Range("FilterDestinationDetailed"),
_
Unique:=False

Names are as follows:-
AllRecordsDetailed
=OFFSET(RecordOfRoundsDetailed!$A$52,0,0,COUNTA(RecordOfRoundsDetailed!$A$52:$A$65536),221)
FilterCriteriaDetailed =RecordOfRoundsDetailed!$A$1:$E$2
FilterDestinationDetailed =OFFSET(HomeDetailed!$A$52,0,0,1,221)

The data involved in both cases is almost the same - why should the first
case take so long?
Any help appreciated.
Sandy

Update
On doing a Control + End on sheet "RecordOfRounds" the highlighted cell was
in row 2093 - although it appeared that none of the rows between 70 and 2093
appeared to contain data???

Deleting rows 70 to 2093 seemed to improve the situation.
Down to under 10 seconds now.
Sandy


"Sandy" <(E-Mail Removed)> wrote in message
news:44D88568-F513-4CAD-98AC-(E-Mail Removed)...
> The following code takes about 20 seconds to process,
>
> Sheets("RecordOfRounds").Range("AllRecords"). _
> AdvancedFilter Action:=xlFilterCopy, _
> CriteriaRange:=Sheets("RecordOfRounds").Range("FilterCriteria"), _
> CopyToRange:=Sheets("HomeCourse").Range("FilterDestination"), _
> Unique:=False
>
> Names are as follows:-
> AllRecords
> =OFFSET(RecordOfRounds!$A$52,0,0,COUNTA(RecordOfRounds!$A$52:$A$65536),194)
> FilterCriteria =RecordOfRounds!$A$1:$E$2
> FilterDestination =OFFSET(HomeCourse!$A$52,0,0,1,194)
>
>
> The following code processes almost instantaneously,
>
> Sheets("RecordOfRoundsDetailed").Range("AllRecordsDetailed"). _
> AdvancedFilter Action:=xlFilterCopy, _
>
> CriteriaRange:=Sheets("RecordOfRoundsDetailed").Range("FilterCriteriaDetailed"),
> _
>
> CopyToRange:=Sheets("HomeDetailed").Range("FilterDestinationDetailed"), _
> Unique:=False
>
> Names are as follows:-
> AllRecordsDetailed
> =OFFSET(RecordOfRoundsDetailed!$A$52,0,0,COUNTA(RecordOfRoundsDetailed!$A$52:$A$65536),221)
> FilterCriteriaDetailed =RecordOfRoundsDetailed!$A$1:$E$2
> FilterDestinationDetailed =OFFSET(HomeDetailed!$A$52,0,0,1,221)
>
> The data involved in both cases is almost the same - why should the first
> case take so long?
> Any help appreciated.
> Sandy