.r.Offset(, -27).Copy

Sub грандэ()
 Dim book1 As Workbook
 Dim book2 As Workbook
 Dim r As Range
 Dim A As Long
 Dim B  As Long
 
 Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 7\Условия для андердогов\таблица.xlsm")
 Set book2 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 7\Условия для андердогов\1.xlsm")
 
  A = 29
  B = 10
  
    
    With book1.Worksheets("таблица")
    
      For Each r In .Range("AC34:AC60").Rows
             If r.Value = 4 Or r.Value = 6 Then
             
                A = A + 1
                
                If A = 34 Then
                  B = B + 1
                  A = 30
                End If
                
                .r.Offset(, -27).Copy
                book2.Worksheets("Лист1").Cells(A, B).PasteSpecial xlPasteAll
                
                
                
              End If
      Next r
     
    End With

 
   End Sub