Macro Hangs. Help Debug? :)

Hello all,

The following macro is hanging on me and for the life of me I can't find the culprit. Any help would be phenomenal.

Thanks!

Sub FindPalletPricing()
    
    Dim x As Integer
    
    x = 0
    
    Do While (x < 30000)
        If Left(Cells(8 + x, 4), 4) = "SAVE" Then
            If Cells(7 + x, 3).Font.Bold = True Then
                Do While Not (Cells(9 + x, 1) = "")
                    Cells(9 + x, 2) = Cells(9 + x, 1)
                    x = x + 1
                Loop
            Else:
                Cells(8 + x, 2) = Cells(7 + x, 1)
                x = x + 1
            End If
        Else:
            x = x + 1
        End If
    Loop

End Sub