I think it is because you change the active selection at the end.
try
[vba]MKPRng.Copy destination:= ActiveWorkbook.Worksheets(i).Range("A:AL").PasteSpecial Paste:=xlPasteValues [/vba]