Pivot Table/Removal of Total Lines

[JTPhillips]

Hi,

I am struggling a bit with the attached file. Is there a simple way to remove the "Total" row for each customer?
I would like to use this data in a pivot table eventually which I know how to do. Not sure if there is a simple way to remove these rows all at once. Thanks!

[arlu1201]

Try this code

Option Explicit

Sub delete_totals()
Dim i As Long, lrow As Long

Application.ScreenUpdating = False

With Worksheets("Sheet1")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow To 2 Step -1
        If .Range("A" & i).Value Like "Total*" Then
            .Rows(i).Delete
            lrow = lrow - 1
        End If
    Next i
End With

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button.

[JTPhillips]

Worked beautifully. Thank you so much!

[NBVC]

Go to Data menu and click the Filter button.

click the drop down that appears in column A, select Text Filters and then Select Contains (or Begins With) and enter the word Total and click Ok.

Then select all the rows and then Right-click and select Delete Rows.

Then click the Filter button again to deactivate the filter... you should see no more Total rows.