code to put borders around all used cells

[tryer]

I am using the code below to put borders around all cells in a specific worksheet however it isn't quite working as I need it to:

Please Login or Register  to view this content.

If all the cells have something in then it works fine however if say the data goes say 10 rows down and 15 rows across and if only one cell in the last column had data in it then it doesn't work corrrectly.
so ideally what I need is to count the columns in the header row (row 4) which I can do, then count the number of filled cells in column A which again I can do then put cell borders around all the cells in the square that is formed which is where I am struggling to find the solution

[davesexcel]

This should do the trick

Please Login or Register  to view this content.

[JBeaucaire]

Just a note, when turning on borders everywhere like this, it isn't necessary to actually "select" them, and you only need to turn on one parameter, the others will get turned on by default.

Please Login or Register  to view this content.

[tryer]

Thank you guys, Both solutions worked ;-)