Automatically change the line thickness of a row

[HeathBarker]

I am hoping to increase the line thickness of certain rows of a report
(sheet2) that I automatically create from a table of data (sheet1). The
condition for the row thickness is the presence of data in Collumn A (between
rows 13 and 500). Only the top edge of these row cells (between columns A and
G) need to have a medium thickness while the rest are to be thin thickness
except:

To add a little more complexity, there is to be no vertical line between
columns A and B and on the far left and far right of the report (left of
column A and right of column G).

Any assistance would be greatly appreciated.

Heath

 

[Don Guillett]

try this

Sub setunderline()
With Range("b16:d21")
.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).Weight = xlThick
End With
End Sub

 

[Joel]

Range("A13:G500").Borders(xlEdgeTop).Weight = xlMedium

 

[Don Guillett]

corrected for your criteria
Sub setunderline()
With Range("a13:g501")
.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).Weight = xlmedium ' thick thin
End With
End Sub