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