Примерно так:

Range("G6:H8").Select ' выделить диапазон, который нужно выложить в отдельный файл Selection.Copy
Workbooks.Add ' открываем новую книгу
ActiveSheet.Paste 'вставляем туда
Application.CutCopyMode = False 'снимаем выделение
ActiveWorkbook.SaveAs Filename:="C:\Книга.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False 'копируем эту книгу
ActiveWindow.Close ' закрываем ее

Все это можно привязать к событию - нажатие кнопки, и тогда он будет ее нажимать, а в указанном каталоге будет лежать xls-файл с нужным диапазоном