Two sheets- trying to do a transpose from Rows to Columns, there is a twist to this.

[Dak2]

Sub headerLookup()

Dim ShtONE As Worksheet, ShtTWO As Worksheet
Dim shtONEHead As Range, shtTWOHead As Range
Dim headerONE As Range, headerTWO As Range

Set ShtONE = Sheets("Sheet1")
Set ShtTWO = Sheets("Sheet2")


Dim lr As Long
Dim lc As Long

'get all of the headers in the first sheet, in Column 1(Horizantal) to get 57 something rows

lr = ShtONE.Cells(Rows.Count, 1).End(xlUp).Row

Set shtONEHead = ShtONE.Range("A1", ShtONE.Cells(lr, 1))

'get all of the headers in second sheet, assuming in row 1
lc = ShtTWO.Cells(1, Columns.Count).End(xlToLeft).Column
Set shtTWOHead = ShtTWO.Range("A1", ShtTWO.Cells(1, lc))

'loop through Rows and find matching values on Columns then copy the value of the adjacent  cell and paste it on sheet2
For Each headerTWO In shtTWOHead
    For Each headerONE In shtONEHead
        If headerTWO.Value = headerONE.Value Then
            headerONE.Offset(0, 1).Copy
            headerTWO.Offset(1, 0).PasteSpecial xlPasteAll
            Application.CutCopyMode = False
  
        End If

        Next headerONE
        
Next headerTWO


End Sub

 

[Dak2]

Match the header on sheet2(Vertical Header-Columns) to header(Horizontal header - Rows), if a match is found then the adjacent cell value is copied and pasted on sheet2 at the correct/corresponding header. I have this code that does the job but only for the first 5 headers on sheet2. I don't know, or actually
not sure why this happens.

Any help is appreciated.

 

[Dak2]

I am not including all the headers here but I have about 57 Rows on the (Horizontal Headers) on sheet1, and it is reduced to 16 (Vertical Headers) on sheet2. If the two headers match then the data, on sheet1, to the left column of that matched cell to be copied to sheet2 to the corresponding vertical header. There will probably be a duplicate headers somewhere, but I don't think we need to worry about that for now.
Here is sheet1 Data:

Ta
DKPNA	A
Mf	B
MfPN	C
Dp	D
M-Time	1 W
DD	A - P
Ta
TA	Dff
Cs	E
APC	-
Mf	B
Series	FPCAP, RHS
Packaging	Cut Tape (CT)
PSt	F
Ty	G
Ca	H
Tol	I
V-R	J
ESRD	25
LiP	2000
OT	K
Ra	-

And Here is what needs to look like at the end on sheet2:

DKPNA

Mf

MfPN

Dp

Cs

PSt

Ty

Ca

Tol

V-R

OT

S / D

H-S(Max)

MLSi

MT

P/c

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

ANy help is much appreciated.