Subtracting From Value In Cell

I am tryinig to use an if statement but I don't have it correct. If columns E, F, and G are not null I want it to subtract 3 from the Total column. Right now it is subtracting from G.

Sub SubtractPoints()
Dim I As Long, subpoint As Long
With ActiveSheet
subpoint = . Range("h65536").End(xlUp).Row
For I = subpoint To 2 Step -1
If Not .Range("E" & I) = "" And Not .Range("F" & I) = "" And Not .Range("G" & I) = "" Then
.Range("H" & I) = "=RC[1]-3"
End If
Next
End With
End Sub