Closing workbook after pasting

[Chewyhairball]

Hi

I am copying data from workbook 2(name changes) to workbook1(fixed name).
My code is stored in workbook1 and run from workbook 2 window. It has to be this way as workbook 2 is not mine and is locked.

Once the data has been copied from workbook2 it is pasted into workbook1.

Application.ScreenUpdating = False
  Sheets("Sheet1").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A1:DZ321").Select
    Selection.Copy

     Windows("Workbook1"). _
        Activate
       
    Sheets("Sheet1").Select
  
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

What I would like to do is shutdown workbook2( or whatever it is called) without saving it.
I have tried doing it using

ActiveWorkbook.Close savechanges:=False

before activating worksheet1 which works to an extent and does close workbook2.
However it comes up with a message about large amounts of data on the clipboard and doesnt paste the data into worksheet 1.

any help is appreciated

thank Rory

 

[Peter_SSs]

I see what you are saying Alex but I think there may be too many unknowns to be trying to cope with variations like you are suggesting as we don't know what the OP would actually want if rows were inserted in the source worksheet, or if that is even possible with their worksheet. It might be that A1 is to be the 'absolute' starting position no matter what.

Further, since CurrentRegion has been accepted as part of the solution, that may (or may not) still start from A1 even if rows have been inserted.

In any case, the main thing is that the OP has a result that they seem happy about.