Problem with macro

[Klartigue]

There is a problem with the highlighted line. I have tried to alter this but can't figure it out. Can you tell what is wrong?

Sub CopyandPaste()
    Dim LastRow As Long
    With ActiveSheet
        .Range("A2:H2").Resize(.Range("A2").End(xlDown).Row - 1).Copy
    End With
    Windows("Broker Volume Master.xlsx").Activate
    Application.Run "BLPLinkReset"
    With ActiveSheet
        LastRow = .Range("A2").End(xlDown).Row
        .Cells("A", LastRow + 1).Paste
    End With
End Sub

thanks for helping!