On my worksheet, in column A, I have 5 rows of data and a heading in cell A1.
Say:
Name
a
a
b
c
d
This is my code without using classes:
Option Explicit
Sub NoClass()
Dim MyArray(1 To 6, 1 To 1) As Variant
Dim i As Integer
For i = 2 To 5
If MyArray(i, 1) <> MyArray(i + 1, 1)...