Loop driller

Denne loop stopper ikke som den skal, der kommer en fejl 400?
Nogen bud på hvad der kan værer galt.

Sub TOOL2()
 
  'Denne funktion Beregner sum ud fra givende kriterier
 
  Dim X, X1 As Long
  Dim Y, Z, Vol, sum1
   
  Do While X1 < 80
    X1 = 1 + X1
    Do
      X = 1 + X
      Y = Cells(X + 1, 9)
      sum1 = Cells(X + 1, 7) + sum1
     
    Loop Until Y <> Cells(X + 2, 9)
    Cells(X + 1, 8) = sum1
    sum1 = 0
  Loop
  MsgBox (X)
End Sub