Dit doet volgens mij hetzelfde als de 62 lijnen in Post #1. Proberen als je wilt. In ieder geval korter om de bocht.
I don't know if you want to try this on a copy of your original but It should do the same as the 62 lines of code in Post #1.
Sub Try_So()
Dim sh3 As Worksheet, sh8 As Worksheet
Dim i As Long, j As Long
Set sh3 = Worksheets("Sheet3")
Set sh8 = Worksheets("Sheet8")
j = 13
With sh3.Cells(SelRow, 2)
.Value = sh8.Cells(9, 3).Value
.Offset(, 1).Value = sh8.Cells(9, 7).Value
.Offset(, 2).Value = sh8.Cells(9, 12).Value
.Offset(, 3).Value = sh8.Cells(11, 3).Value
End With
For i = 6 To 41 Step 2
sh3.Cells(SelRow, i).Value = sh8.Cells(j, 1).Value
sh3.Cells(SelRow, i + 1).Value = sh8.Cells(j, 2).Value
j = j + 1
Next i
End Sub