VBA Copy and Transpose to merged cells - my bad but working solution

[Melimob]

.. sorry for so many posts but I couldn't find a workaround to transpose to merged cells but thought I'd share my basic and probably risky code.
As you can see, very limited knowledge and I know the range could change but will have to call that out.

Sub TransposeValue()


Worksheets("COD Mapping").Rows("1").ClearContents
Worksheets("COD Mapping").Range("C1").Value = "Client"


Worksheets("COD Mapping").Range("D1").Value = Worksheets("HRG Clients ").Range("C3").Value
Worksheets("COD Mapping").Range("f1").Value = Worksheets("HRG Clients ").Range("C4").Value
Worksheets("COD Mapping").Range("h1").Value = Worksheets("HRG Clients ").Range("C5").Value
Worksheets("COD Mapping").Range("j1").Value = Worksheets("HRG Clients ").Range("C6").Value
Worksheets("COD Mapping").Range("l1").Value = Worksheets("HRG Clients ").Range("C7").Value
Worksheets("COD Mapping").Range("n1").Value = Worksheets("HRG Clients ").Range("C8").Value
Worksheets("COD Mapping").Range("p1").Value = Worksheets("HRG Clients ").Range("C9").Value
Worksheets("COD Mapping").Range("r1").Value = Worksheets("HRG Clients ").Range("C10").Value
Worksheets("COD Mapping").Range("t1").Value = Worksheets("HRG Clients ").Range("C11").Value
Worksheets("COD Mapping").Range("v1").Value = Worksheets("HRG Clients ").Range("C12").Value
Worksheets("COD Mapping").Range("x1").Value = Worksheets("HRG Clients ").Range("C13").Value
Worksheets("COD Mapping").Range("z1").Value = Worksheets("HRG Clients ").Range("C14").Value
Worksheets("COD Mapping").Range("ab1").Value = Worksheets("HRG Clients ").Range("C15").Value
Worksheets("COD Mapping").Range("ad1").Value = Worksheets("HRG Clients ").Range("C16").Value
Worksheets("COD Mapping").Range("af1").Value = Worksheets("HRG Clients ").Range("C17").Value
Worksheets("COD Mapping").Range("ah1").Value = Worksheets("HRG Clients ").Range("C18").Value
Worksheets("COD Mapping").Range("aj1").Value = Worksheets("HRG Clients ").Range("C19").Value
Worksheets("COD Mapping").Range("al1").Value = Worksheets("HRG Clients ").Range("C20").Value
Worksheets("COD Mapping").Range("an1").Value = Worksheets("HRG Clients ").Range("C21").Value
Worksheets("COD Mapping").Range("ap1").Value = Worksheets("HRG Clients ").Range("C22").Value
Worksheets("COD Mapping").Range("ar1").Value = Worksheets("HRG Clients ").Range("C23").Value
Worksheets("COD Mapping").Range("at1").Value = Worksheets("HRG Clients ").Range("C24").Value
Worksheets("COD Mapping").Range("av1").Value = Worksheets("HRG Clients ").Range("C25").Value
Worksheets("COD Mapping").Range("ax1").Value = Worksheets("HRG Clients ").Range("C26").Value
Worksheets("COD Mapping").Range("az1").Value = Worksheets("HRG Clients ").Range("C27").Value


End Sub

 

[DanteAmor]

Try this

Sub TransposeValue()
    Dim i As Long, col As Long
    
    Sheets("COD Mapping").Rows("1").ClearContents
    Sheets("COD Mapping").Range("C1").Value = "Client"
    col = 4
    For i = 3 To 27
        Sheets("COD Mapping").Cells(1, col).Value = Sheets("HRG Clients ").Range("C" & i).Value
        col = col + 2
    Next
End Sub

 

[Melimob]

Try this

Sub TransposeValue()
    Dim i As Long, col As Long
    
    Sheets("COD Mapping").Rows("1").ClearContents
    Sheets("COD Mapping").Range("C1").Value = "Client"
    col = 4
    For i = 3 To 27
        Sheets("COD Mapping").Cells(1, col).Value = Sheets("HRG Clients ").Range("C" & i).Value
        col = col + 2
    Next
End Sub

omg - I'm so happy I could cry!! THANK YOU THANK YOU THANK YOU!
works perfectly!

thank you again!

 

[DanteAmor]

I'm glad to help you. I appreciate your kind comments.