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:

Range("a4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
 
        With Selection.Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With

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