delete row if cell in range is empty

[johnmpc]

Hi,

Probably a really easy one.

I just want to delete rows in the range 15:31 if Column "i" is "0" in that range. Column i is the Qty. when copied across it looks empty but is actually 0.

This will be run automatically when the sheet is opened.
Thanks

Customer Name

#N/A​

Email:

#N/A​

Company

Phone No:

Address

#N/A​

#N/A​

Mobile No:

#N/A​

#N/A​

#N/A​

Order GP%

​

Total Profit

​

Total Not Inc VAT

​

Total including VAT

​

Code

Supplier

Product Description

Colour

Cost (Min)

Decoration

Sell

GP%

QTY

One Size

S

M

L

Decoration 1

Position 1

Decoration 2

Position 2

Orn3200

ORN

Albatross Classic Fleece

Navy

£7.10​

£1.25​

£15.00​

44.33%​

20​

10​

10​

2MAN01

Left Chest

ORN1000

ORN

Plover Premium T-Shirt

Navy

£1.90​

£1.25​

£5.25​

40.00%​

15​

15​

2MAN01

Left Chest

PENbb45

Pencarrie

B/field Original Cuffed Beanie

French Navy

£1.35​

£1.25​

£5.75​

54.78%​

10​

10​

2MAN01

Centre Front

IT097474

Newitts

NIKE PARK 20 SENIOR WINTER JACKET

Obsidian

£66.63​

£2.00​

£110.00​

36.11%​

3​

3​

2MAN01

Left Chest

Initials Print

Right Chest

2111036

United Brands

Brinkley Parka

Navy

£77.90​

£2.00​

£136.00​

38.31%​

1​

1​

2MAN01

Left Chest

Initials Print

Right Chest

PENbb45

Pencarrie

B/field Original Cuffed Beanie

mustard

£1.35​

£1.00​

£7.00​

66.43%​

PENbb45

Pencarrie

B/field Original Cuffed Beanie

black

£1.35​

£1.00​

£7.00​

66.43%​

PENGD05

Pencarrie

Gildan Heavy Cotton T

red

£1.97​

£2.00​

£8.00​

50.38%​

9​

5​

4​

 

[johnmpc]

Worked it out. Thanks to Joe4 for the previous.

Sub Delete2()

Dim r As Long

Application.ScreenUpdating = False

For r = 31 To 15 Step -1
If Cells(r, "i").Value = "0" Then Rows(r).delete
Next r

Application.ScreenUpdating = True

End Sub