The following code inserts bottom lines from row 6 onwards depending upon data in column C.
How could I make the code so that it inserts bottom lines from column C to column J if data consists in column F.
Code:
<dl class="codebox"><dd><code>Sub InsertBottomLine()
Dim LastRow As Long
Dim I As Integer
Application.ScreenUpdating = False
LastRow = Range("C" & Rows.Count).End(xlUp).Row
For I = 16 To LastRow
If Cells(I, 3) <> Empty Then Cells(I, 3).Resize(1, 8).Borders(xlEdgeBottom).LineStyle = xlContinuous
Next I
Application.ScreenUpdating = True
End Sub</code></dd></dl>