macro that puts in borders on any cell that is not empty

hello all,

can anyone help me, i need a macro that will put in borders on a worksheet in all cells that are not empty, the next column of empty cells should also have borders.

Thanks in advance