Code running slowly

I have the following code that is running slowly. Is there another way to speed up the copy and paste function that it is performing? The copy range should always start in cell B3 and the last row of the copy range will vary every time I run the code. Any help would be appreciated.

Sub CopyLiveData()

Windows("ANR for multiple tickers.xls").Activate
    Range("B3:Q5999").Select
    Selection.Copy

Windows("ANR for multiple tickers 2.xls").Activate
    Range("B1").Select

    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

End SUb