Hello simonhall,
The following code is based on your example:
Sub makeList()
Dim i As Long, j As Integer, k As Long, iLastRow As Long
k = 1
Application.ScreenUpdating = False
For j = 4 To 6
iLastRow = 65536 - Application.WorksheetFunction.CountBlank(Columns(j))
For i = 1 To iLastRow
Cells(k, 9) = Cells(i, j)
If Cells(k, 9) = Cells(1, j) Then Cells(k, 9).Font.FontStyle = "Bold"
k = k + 1
Next i
Next j
Application.ScreenUpdating = True
End Sub
This code loops through column D and inserts the values from that column into column I, starting in row 1. It then moves to columns E and F, performing the same function.
I added an If/Then to check to see if it is copying the header from column D, E or F, and if so make that cell in column I bold.
Let me know how that works for you.
Bookmarks