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

You don't need to select. There's 100s of examples of copying data correctly on the forum

Try

Sub CopyLiveData()
Windows("ANR for multiple tickers.xls").Activate
Range("B3").CurrentRegion.Copy
Windows("ANR for multiple tickers 2.xls").Range("B1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
Windows("ANR for multiple tickers 2.xls").Range("B1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Don't use copy to copy:

Sub CopyLiveData()
  With Workbooks("ANR for multiple tickers.xls").Range("B3:Q5999")
    Workbooks("ANR for multiple tickers 2.xls").Range("B1").resize(.rows.count,.columns.count)=.value
  End With
End SUb

Sub CopyLiveData()
  With Workbooks("ANR for multiple tickers.xls").sheets(1).Range([B3],Workbooks("ANR for multiple tickers.xls").sheets(1).cells.specialcells(xlcelltypelastcell))
    Workbooks("ANR for multiple tickers 2.xls").sheets(1).Range("B1").resize(.rows.count,.columns.count)=.value
  End With
End SUb

The more information you give the more specific the answer can be.
Blank cells do not jeopardize currentregion, empty rows/columns do.

Me too.
I think you need to scrutinize the code to improve it.

Maybe your VBEditor has some help-facility ?

What determines the last cell to be copied? Is it the last used cell in col Q?

What's the worksheet name in each workbook?

If you declare object variables, you get IntelliSense so you're not coding blind.

Sub CopyLiveData()
    Dim rCopy As Range
    Dim wksFr As Worksheet
    Dim wksTo As Worksheet
    
    Set wksFr = Workbooks("ANR for multiple tickers.xls").Worksheets("AnalystRecommendations")
    Set wksTo = Workbooks("ANR for multiple tickers 2.xls").Worksheets("Today")
    
    With wksFr
        Set rCopy = .Range("B3", .Cells(.Rows.Count, "Q").End(xlUp))
    End With
    If rCopy.Row < 3 Then Exit Sub  ' nothing to copy ...
        
    rCopy.Copy
    With wksTo.Range("B1")
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
    End With
End Sub

Unmerge all merged cells, the scourge of Excel.

I have a moral aversion to solving any problems related to merged cells.

Please show me how to fix it so that I will know for the next time.

I did. Read the posted code again.