VBA находит первую пустую ячейку и вводит текст

Question

Я публикую простой прайс-лист. Теперь мне нужно добавить «заметки» в конце, после последней записи. Ячейка с пометкой редко будет одинаковой, поскольку мы постоянно добавляем и удаляем товар. Я также хотел бы объединить все ячейки в этом ряду, чтобы при автоматической настройке форматирование не потерялось.

Sub Append Notes to last page()
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.Value = "*Logo Quantity - Some items may be combined. See Account Manager."
    ActiveCell.Resize(1, 20).MergeCells
End Sub

Я ожидал, что это просто зайдет в конец прайс-листа и найдет первую пустую ячейку в столбце А и вставит текст, затем объединит ряд ячеек.

Я ценю любое понимание или помощь.

Answer 1

Нельзя использовать пробелы в дополнительном имени.Используйте его без пробелов или замените пробелы другим допустимым символом.

Sub AppendNotestolastpage()
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.Value = "*Logo Quantity - Some items may be combined. See Account Manager."
    ActiveCell.Resize(1, 20).Merge
End Sub

Попробуйте приведенный выше код.Я изменил только строку "ActiveCell.Resize (1, 20) .Merge".