Помогите с Excel

[TNTAH666]

Сообщение от DiemonStar

можно и без макросов.

Что-то не пашет, в строке формулы написано
=_xlfn.IFERROR(ПОИСКПОЗ("Доставка"; ДВССЫЛ("B"& R[-1]C+1 & ":B"&СЧЁТЗ(C[-7]));0) + R[-1]C; "")
Ну а значение соответственно #ИМЯ?

(у меня Office 2003)

[TNTAH666]

Все заработал макрос.
Единственное надо-было вот тут

' подчистили от предидущего раза

If Application.CountA(Rows(2)) <> 0 Then
    For j = 1 To ThisWorkbook.Sheets(3).Cells(2, 1).End(xlDown).Row
        ThisWorkbook.ActiveSheet.Cells(j + 1, 1) = ""
        ThisWorkbook.ActiveSheet.Cells(j + 1, 2) = ""
    Next
End If

поправить строки
ThisWorkbook.ActiveSheet.Cells(j + 1, 1) = ""
ThisWorkbook.ActiveSheet.Cells(j + 1, 2) = ""
на
ThisWorkbook.Sheets(3).Cells(j + 1, 1) = ""
ThisWorkbook.Sheets(3).Cells(j + 1, 2) = ""
чтобы с любого листа работал без проблем

[SaLoKiN]

упустил этот момент)) все верно. только не с любого,а с 3его)