Hi - I'm having trouble understanding why the loop below is failing -- when I
execute the code I get the following error: "Compile error: Loop without
Do".

Any help is appreciated!! The code is below:

Sub thirdlevel()

Dim thirdvar 'variable for "3rd Level Groundwater" sheet
Dim copyvar 'variable for "Copy of Data for Graphs" sheet

'Checking "3rd Level Groundwater" sheet to see how many previous entries
there were
Sheets("3rd Level Groundwater (2)").Select
Range("E5").Select

thirdvar = 0

Do
If Len(ActiveCell.Offset(4 * thirdvar, 0)) = 0 Then
Exit Do
Else
thirdvar = thirdvar + 1
Loop
End If