Работа с объектом CELLS

[savraska]

Выбрать строки,где сумма ячеек,начиная с 8-го столбца меньше 1. Покрасить их в другой цвет и скопировать в новый диапазон.

[SAS888]

Можно так:

Sub Main()
    Dim x As Range, i As Long, j As Long, a(): Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = xlNone: j = ActiveSheet.UsedRange.Row - 1
    a = Intersect(ActiveSheet.UsedRange, [H:IV]).Value
    For i = 1 To UBound(a, 1)
        If Application.Sum(Application.Index(a, i, 0)) < 1 Then _
            If x Is Nothing Then Set x = Rows(i + j) Else Set x = Union(x, Rows(i + j))
    Next
    If Not x Is Nothing Then
        x.Copy Sheets(2).[A1] 'Копируем выбранные строки на 2-й лист.
        x.Interior.ColorIndex = 6 'Окрашиваем выбранные строки в желтый цвет
    End If
End Sub