Code running slowly

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