Просто давно не программировал в VBA, все забыл уже. Надо быстро сделать кое-что? У кого есть желание и время напомните пожалуйста.

Азачем тебе вба, =Лист1!A5, если вба workshets(2).range("A5").value=workshets(1).range("B7").value

Блин в воркщете две ee...

Есть прайс. Рядом с товаром в последней колонке проставляется количество заказываемого товара. Затем на другом листе необходимо сформировать список заказанного товара. Я хочу в цикле прогнать список и добавить на другой лист только тот товар, где имеется циферка в последней колонке. Может есть другие варианты.

Гланды через зад...

В столбце у тя либо пусто, либо количество...

Просто просуммируй столбец через СУМ, по моему, с указанием региона - требуемая колонка - и сумму поставь в нужное место...

Вот тупенько, но лучче фильтр
i = 1
   For Each c In Worksheets(1).Range("A1:A" & Worksheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row)
       If c <> "" Then
           c.Copy Destination:=Worksheets(2).Range("A" & i)
           i = i + 1
       End If
   Next