цикл

[Aqil_f]

Как для этого процеса цикл можно создовать?

Worksheets("LIST1").Range("c14:h14").Copy
Worksheets("LIST2").Range("C4").PasteSpecial , , , True

Я делаю так:

 Private Sub CommandButton1_Click()
    Dim byteI As Byte, intY As Integer, douK As Double
    Sheets("LIST2").Select
    douK = 0
    For byteI = 14 To 25
    intY = Abs(Sheets("LIST1").Range("C" & byteI))

   Worksheets("LIST1").Range("C" & byteI:"H" & byteI).Copy
   Worksheets("LIST2").Range("C4").PasteSpecial , , , True

    Next byteI
 End Sub

Понимаю что, что-то не так, но, незнаю что.
Помогите пожалуйста как можн создовать такой цикл.

[EducatedFool]

Без примера файла сложно понять, чего Вы пытаетесь добиться этим циклом.

Попробуйте такие варианты:

Private Sub CommandButton1_Click()
    For i = 14 To 25
        intY = Abs(Sheets("LIST1").Range("C" & i))    ' не знаю, для чего эта строка
        Worksheets("LIST1").Range("C" & i & ":H" & i).Copy
        Worksheets("LIST2").Range("C" & i).PasteSpecial , , , True
    Next i
End Sub

Private Sub CommandButton1_Click()
    For i = 14 To 25
        intY = Abs(Sheets("LIST1").Range("C" & i))    ' не знаю, для чего эта строка
        Worksheets("LIST1").Cells(i, 3).Resize(1, 6).Copy
        Worksheets("LIST2").Cells(4, i - 10).PasteSpecial , , , True
    Next i
End Sub

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False    ' отключаем обновление экрана
    For i = 14 To 25
        For j = 1 To 6
            intY = Abs(Sheets("LIST1").Range("C" & i))    ' не знаю, для чего эта строка
            Worksheets("LIST1").Cells(i, j + 2).Copy Worksheets("LIST2").Cells(j, i - 10)
        Next j
    Next i
End Sub

[Aqil_f]

Вот использую этот макрос:

Sub makros()
Dim byteI As Byte, intY As Integer, douK As Double
Sheets("LIST2").Select
douK = 0
For byteI = 14 To 25
    Worksheets("LIST1").Range("C" & byteI & ":H" & byteI).Copy
    Worksheets("LIST2").Range("C4").PasteSpecial , , , True
 Next byteI
End Sub

Сейчас мне надо в цикле для каждого строка вычислить F и J.
Для F:
=D4-(ВПР(D4;List3!$A$2:$C$32;3;1))*(E4-20)
Для J:
=ЕСЛИ(C4=0;0;ИНДЕКС(List4!$A$1:$K$1 300;ПОИСКПОЗ(LIST2!$C4;List4!$A$1:$ A$1300;0);ПОИСКПОЗ(LIST2!$B4;List4! $A$1:$K$1;0)))

Если эти выражение использувать в Excel в ячейках как функция все нормально работает, но эти выражение используват в макрос не получается