copy paste transpose data range into merged cells

Here you have it ... but who of us has a refinery to do it ...

Sub refine()
    'Range("AD38").Value = Range("AH4").Value
    'Range("AD39").Value = Range("AI4").Value
    'Range("AD40").Value = Range("AJ4").Value
    'Range("AD41").Value = Range("AK4").Value
    'Range("AD42").Value = Range("AL4").Value
    'Range("AD43").Value = Range("AM4").Value
    'Range("AD44").Value = Range("AN4").Value
    
    Range("AD38:AD44").Value = Application.Transpose(Range("AH4:AN4"))
End Sub