ник: Гоблин
Ну не знаю. Сделал как советовали, пропускать стал 6 и 7 Но убрал 2 строки лишние действительно. Так работает и кажется быстрее.
For i = 10 To 45 'перебор строк
For j = 4 To 34 'с 4 по 34 столбец - от D по AH
If i = 12 Or i = 20 Or i = 35 Or i = 39 Then 'пропускаем строки 12,20,35,39
Else
If Cells(3, j) = 6 Or Cells(3, j) = 7 Then 'если в 3 строке 6 или 7 то
Cells(i, j) = "" 'вставляем пустую клетку
Else
Cells(i, j) = Cells(i, 59) 'В противном случае присваиваем значение 59 столбца
If j = 32 Or j = 33 Or j = 34 Then 'в 32, 33,34 столбцах
If Cells(8, j) < Cells(8, 31) Then Cells(i, j) = "" 'если в 8 строке j столбец < 31 столбца, то пишем пустую строку
End If
End If
End If
Next j
Next i