помогите если есть время и желание

[leones911]

Здравствуйте.
Суть задачи следующая:
есть таблица в ней нужно по нажатии кнопки скопировать не нулевые строки в новую книгу. да еще что бы они и подряд стояли. данные в строках меняются. Проверять как мне кажется можно по столбцу "G"

[IgorGO]

Sub CopyDataOnly()
  ActiveSheet.Copy
  Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  Application.Intersect( _
    Range("G:G").SpecialCells(xlCellTypeBlanks).EntireRow, _
    Range("E:E").SpecialCells(xlCellTypeConstants).EntireRow).EntireRow.Delete
End Sub

или чтобы выкинуть еще и названия групп (стойка, ригель, сухарь и пр.)

Sub CopyDataOnly()
  ActiveSheet.Copy
  Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  Application.Intersect(Range("G:G").SpecialCells(xlCellTypeBlanks).EntireRow, activesheet.usedRange).EntireRow.Delete
End Sub