Formula to delete empty rows with subtotals retrieved from interface

[RAM72]

Hi All

Need formula to delete empty rows with subtotals where applicable retrieved from another interface database

See attached file.

Thanks for help

 

[Somendra Misra]

Hi Ram,

Use below code in a macro to get all the subtotal rows deleted.

Sub deleterow()

Dim lr As Long

lr = Sheets("Sheet1").Cells(Rows.Count, 7).End(xlUp).Row

For i = lr To 2 Step -1
    If Cells(i, 7) <> "" Then
        Range("G" & i).EntireRow.Delete
    End If
Next i

   
End Sub

Regards,

 

[Somendra Misra]

Use this modify code & ignore the earlier one.

Sub deleterow()

Dim lr As Long

lr = Sheets("Sheet1").Cells(Rows.Count, 7).End(xlUp).Row

For i = lr To 2 Step -1
    If Cells(i, 7) <> "" Or Cells(i, 2) = "" Then
        Range("G" & i).EntireRow.Delete
    End If
Next i

   
End Sub

Regards,

 

[RAM72]

Thank you for your help it works .

Regards
Ram72