This worked well in the example but my full source is 267000 rows, and the Results worksheet has 3200 individual device names. I modified the macro to allow for the size of both worksheets, but I still get an error at the line "wkstn(i, 1) = ActiveCell.Offset(0, -3)" and it seems to stop at about row 7827.