Extract rows of data based on a criteria

[Bob789]

I want to extract all rows that do not = 0 from the below table and want to extract to a different location. Would like to use formulas to setup a spreadsheet to have an employee use on a monthly basis so it is very simple for the employee to use.

Account # Account Descript Amount 1.500100 Building Maintenance 0 1.500137 Building Damage Repair 0 1.500400 Painting 0 1.500705 Plumbing/Sewer 10.5 1.501000 Electrical 0 1.501310 Lighting 127.27 1.501450 Carpet Cleaning 0 1.501805 Balconies/Decks 0 1.502100 Roof 0 1.502505 Gutters 1050.75

[大灰狼1976]

Hi Bob789!
for example used AdvancedFilter.

[Bob789]

Hi,

My system administrator does not allow the opening of spreadsheets. Can you just copy the information to the body of the email and send it to me that way and I can view it as text there. Thank you.

[大灰狼1976]

it's very slow to open the website today, I'll reply you later.

[大灰狼1976]

Private Sub CommandButton1_Click()
[a1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[e1:e2], CopyToRange:=[i1]
End Sub

picture.jpg