Changing Paste Special to Values and Format

[rhudgins]

In the code below I would like to change the statement to paste as values and format. When the macro runs now it pastes as values but not the format. Can anyone help?

Private Sub RunIt()

If Code > 0 Then
sheet1.Range("I14", "IV18").Select
Selection.Copy
Worksheets("Results").Activate
ActiveSheet.Range("I" & Code * 5 + 9).Select
End If

ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False