to vlepovanie:
riadok

Sheets(1).Range("A" & i & ":M" & i).Copy (Sheets(5).Range("A" & (PR2 + 1)))

je potrebné upraviť na:

Sheets(1).Range("A" & i & ":M" & i).Copy
Sheets(5).Range("A" & (PR2 + 1)).select
Selection.PasteSpecial Paste:=xlPasteValues

pridať riadok na návrat do prvého hárku:

Sheets(1).Range("A1").select

a vypnúť zvýraznenie kopírovaného bloku:

Application.CutCopyMode = False