You could try this on a copy of your Workbook
Sub Maybe()
Dim lr As Long, c As Range
lr = Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Sheet2").Range("A1:J1").Value = Array("First Name", "Company Name", "Last Name", "Job Title", "Phone Number", "City", "Address", "Country", "State", "Postal Code")
For Each c In Sheets("Sheet1").Range("A1:J1")
On Error Resume Next
Sheets("Sheet1").Range(Cells(c.Row + 1, c.Column), Cells(lr, c.Column)).Copy Sheets("Sheet2").Rows(1).Find(c.Value, , , 1).Offset(1)
On Error GoTo 0
Next c
End Sub
Please use code tags when you have code in your post.
Bookmarks