Уведомление если данные уже содержатся

[Hugo121]

В

Range(Cells(1, 1), Sheets(1).Cells(Rows.Count, 1)

замените 1) на 8)

[Евгений Таб]

Меняю, а он все равно ошибку выводит, где именно сменить(((

[Евгений Таб]

Всегда когда ставлю точку выводит ошибку, незавимо есть или нет значения

[Hugo121]

Поменял как сказал (всюду, не только там)- нормально по H и проверяет, и пишет.

P.S. В Offset(1), TextBox1) и Sheets(1) менять не нужно

[Евгений Таб]

m = WorksheetFunction.Transpose(Range(C ells(1, 8), Sheets(1).Cells(Rows.Count, 8).End(xlUp)).Value)

Неработает
Напишите плз норм код )))0

[IgorGO]

m = WorksheetFunction.Transpose(Range(Cells(1, 8), Cells(Rows.Count, 8).End(xlUp)).Value)