Insert xlBottom border to group data

[Forgone]

I'm trying to create a macro that will insert a border on the bottom
row if the data in a specific column stops being duplicated and need a
hand doing it.

In one of the columns, I have data that can be duplicated and all I
need to do is to modify the existing border (dotted line grey) to a
solid black line.

So far, I've started with......

Sub InsertBorderToGroupItems()
FirstItem = ActiveCell.Value
SecondItem = ActiveCell.Offset(1,0).Value
Offsetcount = 1

Do while Activecell <> ""
If FirstItem <> SecondItem Then ' this is where the 2 shall differ
With ActiveCell.Offset(Offsetcount, 0)
..........

The column that its going to be checking is column "F"

However, I need the border to be inserted from Column A to Column S
(for now)
I was thinking of......

With ActiveCell.Offset(Offsetcount,0)
ActiveRow.Select
.... insert border

Any assistance would be sincerely appreciated.

 

[Peter T]

If I follow what you are after, try something like this

Sub InsertBottomBdr()
Dim nRow As Long, nFromCol As Long, nToCol As Long
Dim nCol As Long
Dim rng As Range

nRow = ActiveCell.Row
nFromCol = 1
nToCol = Range("S1").Column

Set rng = Range(Cells(nRow, nFromCol), Cells(nRow, nToCol))

With rng.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With

End Sub

If always A to S simply
Set rng = Range(Cells(nRow, 1), Cells(nRow, 19))

Regards,
Peter T

 

[p45cal]

I note that the your code starts at the active cell, but later you sa
you're checking column F, so for it to work properly you *have* t
select a cell in column F. In the code below, the commented-out lin
beginning 'Set cll =' is a way to select a cell in any column and th
code will still use column F and check from that ro
downwards.Sub blah()
Set cll = ActiveCell
'Set cll = Cells(ActiveCell.Row, "F") 'optional line to replace on
above
Do While cll <> ""
If cll.Value <> cll.Offset(1).Value Then
With Range(Cells(cll.Row, "A"), Cells(cll.Row
"S")).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Set cll = cll.Offset(1)
Loop
End Su