Try something like this:
Private Sub Transfer()
Dim a(4, 2) As Integer
a(1, 1) = 1: a(1, 2) = 5
a(2, 1) = 3: a(2, 2) = 6
a(3, 1) = 4: a(3, 2) = 8
a(4, 1) = 8: a(4, 2) = 26
For i = 1 To 4
Sheet2.Cells(1, a(i, 2)).Value = Sheet1.Cells(1, a(i, 1)).Value
Next i
End Sub
hope this helps
suat