If it needs to delete the zeros, try the following:

dim Col as integer
dim Row as integer

For Col = 1 to 7
row = 1
for row = 1 to 4
if cells(row,col).value =0 then cells(row,col).value = ""
next row
next col

It will search the cells one by one and if the value in the cell i
zero, it empties the cell

--
Message posted from http://www.ExcelForum.com