Avoiding 'select-copy-select-paste'

[zakynthos]

I've tried using this:

Worksheets("Briefing ID data").Range("a1:aj" & Range("a1000").End(xlUp).Row).Copy _         Destination:=Worksheets("B1").Range("A1")

for this:
</pre>

Sheets("Briefing ID data").Select
    Range("A1:AJ1000").Select
    Selection.copy
    Sheets("B1").Select
    Range("A1").Select
    ActiveSheet.Paste

But obviously I've got the syntax wrong somewhere as all it does is copy the first row from Briefing ID Data to B1 (A:AJ)

What I'm trying to do is copy the range A1:AJ1000 from Briefing ID Data to Sheet 'B1'

Many thanks

 

[Andrew Poulsom]

That would be:

Worksheets("Briefing ID data").Range("a1:aj1000").Copy Destination:=Worksheets("B1").Range("A1")

 

[zakynthos]

Thank you very much - works perfectly!