Figured it out...so close yet so far away!!

With Cells(x, 4).Offset(0, -3).Resize(1, LastCol).Borders (xlEdgeBottom)
.Color = -16777024
.Weight = xlThick
End With


On May 20, 1:31*pm, Steve wrote:
Hi all. *The below snippet of code inserts a row at a change in data
in column A, and colors the row grey.

* * Cells(x, 4).EntireRow.Insert shift:=xlDown
* * Cells(x, 4).Offset(0, -3).Resize(1, LastCol).Interior.ColorIndex =
15

As opposed to inserting a row, I would like to create a border. *I
recorded the below code with the macro recorder, but can't seem to
figure out how to incorporate the variables I have in the above code!

* * With Selection.Borders(xlEdgeBottom)
* * * * .Color = -16777024
* * * * .Weight = xlThick
* * End With

I attempted this, but obviously did not work! *Thanks!

* * * * * * * * * * With Cells(x, 4)
* * * * * * * * * * * * .Offset(0, -3).Resize(1, LastCol).Borders
(xlEdgeBottom)
* * * * * * * * * * * * .Color = -16777024
* * * * * * * * * * * * .Weight = xlThick
* * * * * * * * * * End With