Copy from first workbook, close open new workbook paste close

i would like to select a copy range from active workbook and sheet from "A2" to last populated cell in column "G"
then close this workbook. open a new workbook "workbook2" sheet "sheet1" and paste to first unpopulated row, save and close workbook

Try this:

Sub example()

last_row_G = Sheets(1).Cells(Rows.Count, "G").End(xlUp).Row
last_cell = "G" & last_row_G
Sheets(1).Range("A2:" & last_cell).Copy
Workbooks.Add
Sheets(1).Paste
ThisWorkbook.Save
ActiveWorkbook.Close

End Sub

I also atached an example file with this code