Är det inte enklare att göra en vanlig formellänkning till ett hjälpblad.

=TRANSPONERA(Blad1!A1:D1)

Sen kan du kopier det området som bild

Vill du byta ordnng så kan du skoja till det med VÄLJKOL

=TRANSPONERA(VÄLJKOL(Blad1!A1:D1;2;1;4;3))

Vill du ha ett makro så krävs det en massa Activate eftersom Klippa och klistra jobbar så. 

Sub Makro1()

Dim adress As String
Dim rad As Integer

rad = Selection.Row
adress = Selection.Address

'Transponera tilll ditt hjälpblad (blad2). Lägg in i samma kolumn-nr som motsvarar rad i blad1

Sheets("Blad2").Activate
Sheets("Blad2").Cells(1, rad).Select
Sheets("Blad2").Cells(1, rad).Formula2 = "=TRANSPOSE(Blad1!" & adress & ")"
Range(Selection, Selection.End(xlDown)).Copy

'Klistra in som länkad bild på blad3 Jag la på rad1. Vet inte hur du har tänkt att bestämma var bilden skall ligga

Sheets("Blad3").Activate
Range("A1").Select
ActiveSheet.Pictures.Paste(Link:=True).Select

End Sub