Macro to create box gridline where there is data

Hello all,
I am looking to create black gridlines around all the cells that I have actual data in (without creating the gridlines on the blank cells).

Is there a way to do this?

Thanks!
Bryan