Hi,

Change the line for J43 fro the single line of


Code:
Sheets("Sheet4").Range("j43").Copy Destination:=Sheets("summary").Range("m" & j)
To this


Code:
Sheets("Sheet4").Range("j43").Copy
Sheets("summary").Range("m" & j).PasteSpecial Paste:=xlPasteValues