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

 

[Fluff]

Maybe

Range("A1").CurrentRegion.Sort Range("A1"), xlAscending, Range("G1"), , xlAscending, Header:=xlYes

 

[Coyotex3]

Maybe

Range("A1").CurrentRegion.Sort Range("A1"), xlAscending, Range("G1"), , xlAscending, Header:=xlYes

Hey Fluff, thank you, this one isn't working though. The issue that I'm having is that my sheet is going to have spaces so I do not want to select the whole sheet. I only want to Ctrl + * to highlight my current range and sort that one only as the other ranges I need to leave untouched.

 

[Fluff]

What is your current range?

 

[Coyotex3]

What is your current range?

Should have used XL2BB to begin with. This is a similar format but the ranges will vary in length, but I would like to go from this:

Order Template.xlsx
	A	B	C	D	E	F	G	H	I
1	Order Recipient	Primary Address	Secondary Address	City	City, State, Zip Code	Primary Order	Secondary Order	Third Order
2	Jane Doe 1	123 Lets Do It	Getting There	NJ	123 Lets Do it, Getting There, NJ	45612	45123	45699
3	Jane Doe 2	124 Lets Do It	Getting There	NJ	124 Lets Do it, Getting There, NJ	45613	45123	45699
4	Jane Doe 3	125 Lets Do It	Getting There	NJ	125 Lets Do it, Getting There, NJ	45614	45123	45699
5
6
7
8	John Doe 1	123 Make it Happen	150 We Did It	New York	Manhattan, NY, 10001	12545	54568	75854
9	Blake Doe	124 Make it Happen	151 We Did It	New York	Manhattan, NY, 10002	12546	54569	75854
10	John Doe 3	125 Make it Happen	152 We Did It	New York	Manhattan, NY, 10003	12547	54570	75854
11	John Doe 4	126 Make it Happen	153 We Did It	New York	Manhattan, NY, 10004	12548	54571	75854
12	John Doe 5	127 Make it Happen	154 We Did It	New York	Manhattan, NY, 10005	12549	54572	75854
13	John Doe 6	128 Make it Happen	155 We Did It	New York	Manhattan, NY, 10006	12550	54573	75854
14
15
16
17	Ann Doe	129 Make it Happen		NYC	Manhattan, NY, 10007	12551	54574	75854
18	John Doe 8	130 Make it Happen		NYC	Manhattan, NY, 10008	12552	54575	75854
19	John Doe 9	131 Make it Happen		NYC	Manhattan, NY, 10009	12553	54576	75854
20
Sheet30

To this

Order Template.xlsx
	A	B	C	D	E	F	G	H	I
8	Ann Doe	129 Make it Happen		NYC	Manhattan, NY, 10007	12551	54574	75854
9	Blake Doe	124 Make it Happen	151 We Did It	New York	Manhattan, NY, 10002	12546	54569	75854
10	John Doe 1	123 Make it Happen	150 We Did It	New York	Manhattan, NY, 10001	12545	54568	75854
11	John Doe 3	125 Make it Happen	152 We Did It	New York	Manhattan, NY, 10003	12547	54570	75854
12	John Doe 4	126 Make it Happen	153 We Did It	New York	Manhattan, NY, 10004	12548	54571	75854
13	John Doe 5	127 Make it Happen	154 We Did It	New York	Manhattan, NY, 10005	12549	54572	75854
14	John Doe 6	128 Make it Happen	155 We Did It	New York	Manhattan, NY, 10006	12550	54573	75854
15	John Doe 8	130 Make it Happen		NYC	Manhattan, NY, 10008	12552	54575	75854
16	John Doe 9	131 Make it Happen		NYC	Manhattan, NY, 10009	12553	54576	75854
17
18
Sheet30

 

[Fluff]

I am now totally confused, you said you wanted to sort the current region, but your mini-sheets shows you want to sort the used range.
Also what has happened to the header row?

 

[Coyotex3]

I am now totally confused, you said you wanted to sort the current region, but your mini-sheets shows you want to sort the used range.
Also what has happened to the header row?

Fluff, Sorry for the confusion. I interpreted Current.Region to mean the same as "Ctrl + *" I guess I'm indeed referring to used range.

This is essentially going to be one macro within a macro, and once I figure this last piece out I'm hoping in a new thread you guys can help me optimize it because it is far from perfect. But to answer your question my supervisor does not need the header row in every used range he just wants it so NYC and New York do not get split up and get sorted by "A" then "G" hope that explains it a bit more. If not I can show a larger XL2BB sheet.

 

[Fluff]

Ok, how about

ActiveSheet.UsedRange.Sort Range("A1"), xlAscending, Range("G1"), , xlAscending, Header:=xlYes

 

[Coyotex3]

Ok, how about

ActiveSheet.UsedRange.Sort Range("A1"), xlAscending, Range("G1"), , xlAscending, Header:=xlYes

Fluff, once again I feel like an idiot because I did not answer your question properly.

I now realized that my X2LBB code omitted the range with NJ. Ideally I would like this code to just sort the used range without touching NJ or any other city I may have.

 

[Fluff]

I have no idea what you are talking about.
Please explain clearly & succinctly what you are trying to do.