Data is being pulled from SHEET1 and transposed and joined on SHEET2.
Problem: Sheet1's column "E" is supposed to be at the top header row on SHEET2, but it is not working.
Sub ReArrange()
Dim a As Variant, b As Variant, cr As Variant
Dim d As Object
Dim i As Long, lr As Long...