What's wrong with this part of my macro?

[Sunvisor]

Windows("MRCollect.xls").Activate
  Set ws = ActiveWorkbook.Sheets(1)
  lngLastRow1 = ws.Range("A65536").End(xlUp).Row + 1
  Range("A" & lngLastRow1).PasteSpecial xlPasteValues
  Application.CutCopyMode = False

AT this part of the code I already have MRCollect activated so I dont need that, and also I'd like for it to go to the second workbook which is called "TEMPLATE"....

I am getting the error around the lngLastRow1

Anyone see anything wrong?

 

[RSXchin]

when you step through, where does it do something unexpected?