Hi ET,

Try something like this..


rngCopy.Copy Destination:=wbkContract.Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(1)

..which will put it one row below the last cell with data in it from column A. You can put back the second '-1' in the offset if you want it to paste one column to the right, but it would need to be a column greater than column A, else you'll receive a range error.