runtime error 13 type mismatch

i get this error when i run

Sub additem()
If Cells(2, 1).Value And Cells(2, 1).Value And Cells(2, 3).Value <> "" Then
Cells(2, 1).Resize(1, 7).Copy
Range("A6").End(xlDown).PasteSpecial xlPasteValues
Cells(2, 1).Resize(1, 7).ClearContents
Range("E2").Value = "=IF(RC[-2]="""","""",IF(RC[-2]<=SUMIF('Item Summary'!C[-4],RC[-4],'Item Summary'!C[-1]),""Yes"",""No""))"
Else
MsgBox "test"
End If
End Sub

though it runs msgbox fine with empty cells?

Thankyou in advance.