Detrmine Mandatory Cells Not Filled

I want the macro to check the rows 17 to 1000 if there is a value in column E on respective row. I have this, it works fine but I have to cupy it approx 1000times, that is for every row and then change the row 17 to 18 and 19 ...1000, There must be an easier way?

Sub Knapp174_Klicka()
On Error Resume Next
With Blad1 ' CodeName
If Not IsEmpty(. Range("E17")) Then
If WorksheetFunction. CountA(.Range("E17,J17,P17")) <> 3 Then
MsgBox "Du har inte fyllt alla celler p&aring; rad 17"
Application.Goto .Range("E17:P17")
Exit Sub
End If
End If...........................