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