Need help to apply top border in table with any text show in column A

[lbillie]

[TABLE="width: 400"]
<tbody>[TR]
[TD]PT#
[/TD]
[TD]INI.
[/TD]
[TD]EAU FY1
[/TD]
[TD]VENDOR
[/TD]
[TD]TOOLING COST
[/TD]
[TD]TOOL LEAD TIME(Wks)
[/TD]
[TD]PEACE PRICE
[/TD]
[TD]MIN. ORDER QTY.
[/TD]
[/TR]
[TR]
[TD]PT18104
[/TD]
[TD]JB
[/TD]
[TD]1,000
[/TD]
[TD]Cardinal Alum. CO.
[/TD]
[TD]$4,200.00
[/TD]
[TD]5
[/TD]
[TD]$4.66
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Dan's Alum. Die
[/TD]
[TD]$4,800.00
[/TD]
[TD]4
[/TD]
[TD]$4.75
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]RW14554
[/TD]
[TD]JBP
[/TD]
[TD]1,000
[/TD]
[TD]Cardinal Alum. CO.
[/TD]
[TD]$3,400.00
[/TD]
[TD]4
[/TD]
[TD]$2.50
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Jacob's Alum.
[/TD]
[TD]$3,500.00
[/TD]
[TD]4
[/TD]
[TD]$2.75
[/TD]
[TD]1
[/TD]
[/TR]
</tbody>[/TABLE]

Hello everyone, any assistance is greatly appreciated. I need help applying a top border above the cell in the 1st column. This format comes from a pivot table. I tried applying it using a conditional format, but it didnt' work. I applied the formula under Use a formula to determine which cells to format. (=$A1="**")
Would anyone happen to have a VBA to apply this method?
The line should apply at top border across the table with any text applied in Column A.

 

[G_Sereez]

So you want a top border for any cell that is not blank??

 

[lbillie]

For example: A top border in row 1 above PT# thru Min. across table above Order Qty.
A top border in row 2 above PT18104 across table above 1
A top border in row 5 above RW14554 across table above 1
I hope this made sense to you.

 

[lbillie]

Any cell that is not blank in column A. Last reply was suppose to say row 4, not row 5. Sorry about the confusion.

 

[G_Sereez]

You had the right idea with the conditional formatting. The equation should be:

=A1<>""

Then copy that cell, highlight all the other ones and right click>paste special>formats. it will adjust the formula on down.

 

[lbillie]

Thank you so much! You're awesome!!!