Добрый день.
Цитата
Прошу помочь написать макрос
Да пожалуйста
Обращение к листу по его имени
[vba]Код
ThisWorkbook.Worksheets("Имя листа")
[/vba]
Определение является ли выделение областью ячеек
[vba]Код
If TypeOf Selection Is Range Then
[/vba]
Определение номера верней (если не единственная строка) выделения
[vba][/vba]
Удаление строки
[vba]Код
ThisWorkbook.Worksheets("Имя листа").Rows(N).Delete xlShiftUp
[/vba]
где N выше определённый номер строки
По названию листа определяете смещение -1 или +1 строки на другом листе и удаляете аналогично строку там
Успехов, Сергей.