Creating a GPA calculator

[lesoies]

I am trying to make a program that will calculate the GPA based on grades put in a table and it will return it under another table, I used the vlookup function but i keep on getting an error, how can I fix this
For dblcol = 4 To 20 Step 2
count
For dblrow2 = 19 To dblrow
vargrade = Cells(dblrow, dblcol).Value

If Cells(dblrow, dblcol).Value <> "NA" Then
vargpa = Application.WorksheetFunction.VLookup(vargrade, Range("A18:B25"), 2, False)
dblgpa = dblgpa + vargpa
Else
Next
End If

Next
dblgpa2 = dblgpa / Cells(13, dblcol).Value
Cells(29, dblcol).Value = dblgpa2
Nextcode?

[Bishonen]

If I'm not mistaken, this part:

Please Login or Register  to view this content.

is a blank cell.

Here's a shorter code that could do the job.

Please Login or Register  to view this content.