Sub Perenos()
      Application.ScreenUpdating = False
      Dim a, i%, iLastCol%, xoz%, gost%
      a = Range("B2:E10").Value
      With Worksheets("Шахматка")
          For i = 1 To 9
              If a(i, 2) <> "" And a(i, 3) <> "" Then
                  xoz = 1 + Application.WorksheetFunction.Match(Trim(Range("B" & i + 1)), [A1:A18], 0)
                  gost = Application.WorksheetFunction.Match(Trim(Range("E" & i + 1)), [A1:A18], 0)
                  .Cells(xoz, gost * 2) = a(i, 2)
                  .Cells(xoz, gost * 2 + 1) = a(i, 3)
                  gost = gost + 1
                  iLastCol = .Cells(xoz, Columns.Count).End(xlToLeft).Column
                  If iLastCol < 40 Then
                      .Cells(xoz, 39) = a(i, 2)
                      .Cells(xoz, 40) = a(i, 3)
                      .Cells(gost, 39) = a(i, 3)
                      .Cells(gost, 40) = a(i, 2)
                  Else
                      .Cells(xoz, iLastCol + 1) = a(i, 2)
                      .Cells(xoz, iLastCol + 2) = a(i, 3)
                      .Cells(gost, iLastCol + 1) = a(i, 3)
                      .Cells(gost, iLastCol + 2) = a(i, 2)
                  End If
              End If
          Next i
      End With
      Application.ScreenUpdating = True
End Sub

Sub Perenos()
     Application.ScreenUpdating = False
     Dim a, i%, iLastCol%, xoz%, gost%
     a = Range("B2:E10").Value
     With Worksheets("Шахматка")
         For i = 1 To 9
             If a(i, 2) <> "" And a(i, 3) <> "" Then
                 xoz = 1 + Application.WorksheetFunction.Match(Trim(Range("B" & i + 1)), [A1:A18], 0)
                 gost = Application.WorksheetFunction.Match(Trim(Range("E" & i + 1)), [A1:A18], 0)
                 .Cells(xoz, gost * 2) = a(i, 2)
                 .Cells(xoz, gost * 2 + 1) = a(i, 3)
                 gost = gost + 1
                 iLastCol = .Cells(xoz, Columns.Count).End(xlToLeft).Column
                 If iLastCol < 40 Then
                     .Cells(xoz, 39) = a(i, 2)
                     .Cells(xoz, 40) = a(i, 3)
                 Else
                     .Cells(xoz, iLastCol + 1) = a(i, 2)
                     .Cells(xoz, iLastCol + 2) = a(i, 3)
                 End If
                 gost = gost + 19
                 iLastCol = .Cells(gost, Columns.Count).End(xlToLeft).Column
                 If iLastCol < 40 Then
                     .Cells(gost, 39) = a(i, 3)
                     .Cells(gost, 40) = a(i, 2)
                 Else
                     .Cells(gost, iLastCol + 1) = a(i, 3)
                     .Cells(gost, iLastCol + 2) = a(i, 2)
                 End If
             End If
         Next i
     End With
     Application.ScreenUpdating = True
End Sub