[Vovchick1]

После обработки оригинального отчета макросом мендежер копирует данные и вставляет в книгу в один из 52 листов. А затем начинает выравнивать строки таким образом, что цифры столбца Analyst в каждой строке должны иметь такое же значение как цифры в столбца TempColumn. Выравнивание достигается выделением ячеек и вставкой со сдвигом вниз.

А не проще записывать строки так, что-бы значение "TempColumn" совпадало с номером строки, тогда столбец "TempColumn" вообще не нужен и выравнивать ни чего не надо!!!

Внесение изменения в таблицу(в ячейку со столбцом "B" и строкой "10", на листе "Лист3")

Sheets("Лист3").Range("B10").Value = "Данные"

Нужна серия вопросов с возможностью введения ответа

Решение №1
Dim A as string 'Переменная для принятия ответа
A= InputBox("Вопрос", "Заголовок окна", "Текст по умолчанию")

Решение №2
Ещё вариант добавить форму с соответствуюшими полями:


Может ещё где понадобится!!!
Вывод сообщения, или вопроса по типу да/нет

Dim M 'Переменная для принятия ответа(тип не помню)
M = MsgBox("Сообщение или вопрос",здесь константы (через "+") , "Заголовок")

Например:
M = MsgBox("Руки мыл??? :+)", vbQuestion + vbOKCancel, "")


Извени если что не так, просто может вопрос нетак понял!!!