Code running slowly

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