Всем неравнодушным большое спасибо за помощь.
Макрос написал, все работает, теперь его немного в порядок приведу, небольшие хотелки добавлю.