"Statement invalid outside Type block" error

hi all,
I'm working on a macro that generates, sorts, and subtitles a small list using data from a larger database. the purpose is to help with the creation of plant lists for clients without having to copy or paste or delete. My boss isn't very tech saavy, and up until now has been deleting the data she doesn't use each time she creates a new list. i've managed to piece together this macro with what little knowledge i possess but it's been showing errors from time to time.

the goal:

• copy all rows on "sheet 1" (after row 2) that contain data in column "B" and paste them into "sheet 2" starting at row 2.
• sort the newly copied data by type listed in golumn "G" using custom sort (Trees, Shrubs, Grass/Sedge, Perennial, Vine, Bulb)
• Locate the first instance of each type (tree, shrub, ect..) listed in column "G", and insert 2 rows above each one, with the row directly above subtitling the plant type in column "C"
• finally, now that each item in column G has a header, i want to delete all of the data in column G with the exception of cell G1 which i want to say "Spacing and Notes"

Here's the code that i have so far, but some of it keeps getting an error message.

Please Login or Register  to view this content.

any thoughts or suggestions? thank you in advance

Elo