Function Kopiraj()
With Sheet1
.Range("C1:C5").Copy
 .Range("E1:E5").PasteSpecial Paste:=xlPasteValues
End With
End Function