GBHDim i As Integer

For i = 2 To 10 Step 1
If (Range("T" & i) <> Range("T" & i + 1)) Then

Windows("my.xls").Activate
Range("A" & i & ":s" & i).Select
Selection.Copy
Windows("d.xls").Activate
Range("A" & i + 21 & ":S" & i + 21).Select
ActiveSheet.Paste

Windows("my.xls").Activate
Range("B" & i & ":s" & i).Select
Selection.Copy
Windows("d.xls").Activate
Range("B" & i + 22 & ":S" & i + 22).Select
ActiveSheet.Paste

Range("A" & i + 22).Value = "Èòîãî"
Range("I" & i + 21).Value = ""
Range("O" & i + 21).Value = ""
Range("P" & i + 21).Value = ""
Range("Q" & i + 21).Value = ""
Range("R" & i + 21).Value = ""
Range("S" & i + 21).Value = ""
End If
Next i

Вот что я намутил,только не могу понять почему цикл не идет? :-(

Не знаю, но может скобочки в нужные места проставить