Faster Macro

[heffo500]

Hi

Could this macro be more efficient?

Thanks

Sub daily()
'Added by LH 24.10.18
Dim lr As Long, lr2 As Long, wb As Workbook, stock As Worksheet, wk As Workbook, TAconcat As String, lastrow As Long
'''''set objects''''''
    Set wk = ThisWorkbook
Set Capstock = wk.Sheets("Capstock Report")
        Application.DisplayAlerts = False
'''''''Clear contents from REC'''''''''
Sheets("stock Report").Select
lr = Range("D" & Rows.Count).End(xlUp).Row
Range("A2:T" & lr).Select
                Selection.ClearContents
'''''error proof'''''''
On Error GoTo errhandler:
Workbooks.Open "G:\Report.xls"
Set wb = ActiveWorkbook
wb.Sheets(2).Select
lr2 = Range("C" & Rows.Count).End(xlUp).Row
Range("A1:N" & lr2).Copy
stock.Range("A2:N" & lr2).PasteSpecial
wb.Close
Set wb = Nothing
'remove marching ants

Application.CutCopyMode = False

''''''Input formulas to check for breaks'''''''
 Range("O1:T1 ").Copy
Range("O3:T" & lr2).PasteSpecial

' add headings
Range("O2") = "CCY"
Range("P2") = "Number"
Range("Q2") = "SC"
Range("R2") = "F"
Range("S2") = "AMOUNT"
Range("T2") = "Match?"

'''''error handler''''''
errhandler:
Debug.Print Err.Number, Err.Description
Application.DisplayAlerts = True
End Sub

 

[RoryA]

Your code seems a little confused. You declare stock but then use Capstock when assigning the worksheet, so you should end up with a runtime error later on. Also, are the "Capstock report" and "stock report" sheets different?