Best way to delete content in columns?

Question

*Trying to clear columns A, G, and H as fast as possible.

Is there a faster way then doing:

Range(Cells(2, 7), Cells(1000, 7)).Clear
Range(Cells(2, 1), Cel