Hi Alan,

Good to see you worked it out.

I missed the aligning columns part.

If you are up to it, you can try this code:

Sub RunMe()
Dim x, y, lRow As Long
x = 1
Do
lRow = Cells(x, "A").End(xlDown).Row
Range(Cells(x, "A"), Cells(lRow, "A")).Copy
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
x = lRow + 2
Loop Until Cells(x, "A").Value = vbNullString
Application.CutCopyMode = False
x = 2
Do Until IsEmpty(Cells(x, "H"))
If Left(Cells(x, "H"), 3) <> "IEC" Then
Range(Cells(x, "H"), Cells(x, "Z")).Cut Cells(x, "I")
End If
x = x + 1
Loop
x = 2
Do Until IsEmpty(Cells(x, "I"))
If Left(Cells(x, "I"), 3) <> "INS" Then
Range(Cells(x, "I"), Cells(x, "Z")).Cut Cells(x, "J")
End If
x = x + 1
Loop
x = 2
Do Until IsEmpty(Cells(x, "J"))
If Left(Cells(x, "J"), 4) <> "LEAD" Then
Range(Cells(x, "J"), Cells(x, "Z")).Cut Cells(x, "K")
End If
x = x + 1
Loop
End Sub

It works for your sample data, but I don't know how the rest of your data looks like.

Bummer, I guess I missed my shot at eternal gratitude ;)

Best regards,

Trowa