Macro to Copy and Save to A New Workbook

Hi guys,
Need your help again with another Macro. Hoping for one that will copy and save content of a sheet to a new workbook.

I have a Worksheet (Worksheet Name is "Reviews" that has some Macros in it (Buttons too).
I would like to have a Save button that will:

- Copy contents of my existing worksheet from B7 to D7 all the way down to the last record (The Macro must not be copied).
- Copy to a New Workbook and I will be prompted where to save and what file name to save it.

Can this be done? Sorry, I've searched thru the forum but I am having trouble looking for anything that will
match my requirements. Hope you can help. Thank you.


PS
I have been asking for help quite lately, please don't get tired of me ^^

Heres a sample

Sub copyValues()
 Dim a As Variant
 a = Worksheets("Reviews").Range("B7:D" & Cells(Rows.Count, "B").End(xlUp).Row)
 
 Workbooks.Add
 Range("a1").Resize(UBound(a), UBound(a, 2)) = a
 Application.Dialogs(xlDialogSaveAs).Show
 
End Sub