Code:
Sub Macro1()
    Range("E4:N23").Select
    Selection.Borders.LineStyle = xlContinuous

End Sub