create macro - delete all rows with zero in column L

[Johnny]

Using Microsoft Excel 2000 SP3
I have this spreadsheet as shown below.

Column Letter/ Row No. F G H I J K L
5 BAL MON TUES WED THUR FRI BAL
6 500 500
7 0 10 20 40 70
8 0 0
9 0 10 10
10 0 50 50
11 0 0
12 0 0
13 500 500
14 3040 3040
15 500 500
4040 4540


I have formulas in cells in column L that return a zero (i.e.
L6=F6-G6-H6-I6-J6-K6) starting from row 6 onwards. There may be additional
‘X’ no. of rows from row 6.

I need to
a)copy only the values in column L from row 6 downwards to row ‘X’ into
column F row 6 downwards.
b)delete the values from column G to K from row 6 downwards to row ‘X’
c)delete the rows that have zero value in column L

Can someone please help

 

[Ron de Bruin]

Start here
http://www.rondebruin.nl/delete.htm

Test for
ElseIf .Cells(Lrow, "A").Value = "" Then .Rows(Lrow).Delete

Change every A to L

 

[Johnny]

Ron

Thanks for the prompt reply it worked very well. I amended the first row to
third row as my data started from that point. It is great. Thanks. I will
assign a button to it and hopefully the storesman can just click the button
and do the job