Modify Existing Mbr Code to Save to Ext.Workbook

Morning All,

The code attached was provided within this forum, but I think I borked it cause it's not quite doing what I'm needing. Intended theme, to add data cells to next available area of the DB skipping the header row. The row column search for finding next available area should be defined by column G, H or I of the "DB"

1.) I need the active sheet - Sheets("Master (2)") - to copy only the data filled cells in the range of A:R to my - Sheets("DB") - in range G:X skipping the header row (Row 1)
2.) Additionally, I need to copy from ("Master (2)") active cells in Column AA to ("DB") Column Y following the same 'find next available cell' philosophy.

*Edit

3.) Sorry, will also need columns G:Y of the "DB" to sort by
A.) Property Case ; Values ; A to Z
B.) Date ; Values ; Newest to Oldest.

Thank you very much!

Sub CopyToNewSheet()

    Dim copy_from, copy_to As Range
    Dim Lastrow as integer

    Lastrow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
    Set copy_from = ActiveSheet.Range("B2:G" & Lastrow)
    Set copy_to = Sheets("DB").Range("G" & Rows.Count).End(xlUp)
    copy_from.Copy Destination:=copy_to
    

End Sub