Help updating this code to sort current region by Column A then Column G?

[Coyotex3]

Hello, I have a code that finds a specific word and delete 3 rows above it(therefore removing blank cells between two similar ranges.) I would like to be able to select the current region and resort. Here is what I have come up with so far. This removes my columns for me but I can't figure out the rest.

Sub Delete_Rows()
    Range("A" & Rows.Count).End(xlUp).Select
    Const WordToLook = "NYC"
    Dim RowWord As Long
    RowWord = Columns(4).Find(WordToLook, LookAt:=xlWhole).Row
    Rows(RowWord - 3 & ":" & RowWord - 1).Delete
End Sub

 

[Coyotex3]

This will sort the last two blocks.

Sub coyotex()
   Dim UsdRws As Long
 
   UsdRws = Range("A" & Rows.Count).End(xlUp).Row
   With Range("A:A").SpecialCells(xlConstants)
      With Range(.Areas(.Areas.Count - 1), Range("A" & UsdRws)).Resize(, 8)
         .Sort .Range("A1"), xlAscending, .Range("G1"), , xlAscending, Header:=xlNo
      End With
   End With
End Sub

An absolute gem yet again!! Once again, Fluff, thank you for everything and sorry about not explaining things as clearly as I had hoped. Truly helping me and my team out!

 

[Fluff]

Glad to help & thanks for the feedback.