Передача данных из одной таблицы в другую, при выборе одной ячейки

[MickMick]

Добрый вечер. Падскажите, пожалуйста, как можно решить следующую задачу:
1. Есть два листа. На первом создается таблица (1), на втором находится таблица (2) с данными, которая может дополняться (смотреть вложение). Нужно, чтобы при выборе ячейки "Предмет" в (1) открывалась таблица (2) (как при создании гиперссылки), и при выборе в ней Предмета - в первую таблицу переносились бы все данные, которые связаны с этим предметом.
2. Ширина ячейки "Предмет" в создаваемой таблице должна быть фиксированной, а если данные не помещатся - высота ячейки (и всей строки) автоматически увеличивается.
3. Нужно, чтобы при вводе данных в стоку таблицы (1) автоматически добавлялась следующая чистая строка, и при заполнении ячейки "Предмет" у этой строки появлялся номе по порядку.
4. Под таблицей в правой ячейке должны суммироваться учебные часы, выбранных предметов.
Извините за громоздкое объяснение, но очень нужна ваша помощь. Зараннее спасибо.

[IgorGO]

см.вложение.

во вспомогательной таблице предметов не должно быть пустых строк.
формулы на первом листе внесены до 30 строки включительно, если список длиннее размножаем последнюю строку вниз по листу.

[tolikman]

или вот, вариант на макросах. но вариант IgorGO более пластичен.

[MickMick]

Всем огромное спасибо. На первы

[MickMick]

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

[MickMick]

Спасибо ещё раз. Вариант, который подсказал Tolikman мне больше подходит. Tolikman, если можно разъяснить мне (как плохо разбирающемуся в макросах):
1. Если данные будут передаваться со второго листа не из столбца "F" а из столбца "H", где в макросе заменится "F" на "H".
2. Как работает итоговое суммирование (если можно отдельный код)
3. Как можно сделать такую же передачу данных, но один раз (без цикла), т.е. с одного листа заходишь во второй, выбираешь ячейку - и данные передаются в первый лист.
Зараннее спасибо. Уж уделите мне еще немного вашего времени, чтобы я полностью понял Ваш макрос.

[tolikman]

1. в листе 2, где написано Range(что-то) (Не .Range, обрати внимание на точку) меняй там все F на H.
2.

gen.allHours = gen.allHours + Range("F" + CStr(rw))

и

gen.allHours = gen.allHours - .Range("F" + CStr(gen.nextRow)) + Range("F" + CStr(rw))

код находится на листе 2
3. позже.