Trying to delete a row below specified row

[Eric Penfold]

Please help with this code to delete the specified row. Says "Runtime error 438"

Public Sub OrderNos_PartNos_Qty()

    Dim ws   As Worksheet
    Dim LRow As Long
    Dim Row  As Long
    Dim i    As Variant
    Dim y    As Variant
    
    Set ws = ActiveSheet

    LRow = Range("A2").End(xlDown).Row
    
    Application.ScreenUpdating = False
           With ws
                  For i = 2 To LRow
                    If Cells(i, "C") = Cells(i + 1, "C") Then
                       If Cells(i, "E") = Cells(i + 1, "E") Then
                            Cells(i, "G") = Cells(i, "G") + Cells(i + 1, "G")
                        End If
                    End If
                Next i
                  
                For y = 2 To LRow
                    If Cells(y, "C") = Cells(y + 1, "C") Then
                       If Cells(y, "E") = Cells(y + 1, "E") Then
                            Cells(y + 1, "C").EntierRow.Delete
                        End If
                    End If
                Next y
                                
                End With
   
    Application.ScreenUpdating = True

End Sub

 

[Kerryx]

could be typo

Cells(y + 1, "C").EntireRow.Delete

 

[Eric Penfold]

I feel dumb?? but thanks for your help

 

[Kerryx]

I feel dumb?? but thanks for your help

Been there done that

 

[Eric Penfold]

Please help me on my second post.