Add Empty Rows And Then Format

My frist row of data start at 4:4 but when I run the macro it add a line in underneath this which I would prefer it didn't, again due to my lack of knowledge I placed the following at the end of the macro to hide this row

'ActiveSheet.Rows("5:5").Hidden = True',

I would prefer if this row was not created??

After the macro runs (or during) I would like to have the format changing so the border does not show up between the cells, I would just like an outside broader from a:z columns.

Public Sub My_Insert()
Application.ScreenUpdating = False
Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

[Code] ........