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