Sub AAR()
Sheets.Add.Name = "Сводный" ‘добавляем новый лист, на который соберем данные
        With Sheets("Common")
            .Range("A41:F" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy _
                  Sheets("Сводный").Cells(Rows.Count, 1).End(xlUp)(2, 1) ‘копируем с листа Common и вставляем на новый лист массив фирм с НДС
       With Sheets("Common")
           .Range("G42:L" & .Cells(Rows.Count, 7).End(xlUp).Row).Copy _
                 Sheets("Сводный").Cells(Rows.Count, 1).End(xlUp)(2, 1) ‘копируем с листа Common и вставляем на новый лист массив фирм без НДС, после фирм с НДС

     End With
     End With
Columns("A:F").EntireColumn.AutoFit
Range("F:F").Cut Destination:=Range("K:K") ‘переносим столбец сумм, далее будем с ним сравнивать как с себестоимостью проекта
Sheets("Common").Delete ‘удаляем прежний сводный лист
  For i = 2 To ThisWorkbook.Worksheets.Count – 1’задаем цикл по листам
         With Sheets(i)
             .Range("U66" ).Copy _
………………………………………………………………………………………………………………………………….
                     ‘ подскажите, как верно задать цикл по листам и ячейкам, чтобы перенос был корректным, НДСные значения к НДСным фирмам, безНДСные к безНДСным
         End With
     Next i
     End Sub