There is a way to clear all borders of a range rather than using code that looks like this:
Selection.Borders(xledgeright).LineStyle = xlNone
Selection.Borders(xledgeleft).LineStyle = xlNone
etc…
You are able to clear all boarders with just this one line:
Selection.Borders.LineStyle = xlNone