Determining a Range within a Column using VBA

[Tuffman]

I am trying to determine a range within a column of data that is smaller than the range of the entire column. In the example below, I have brand of vehicles in column A. How would I write the code to search column A and find the range for all of the Toyota vehicles?

Car Example.xlsx
	A
1	Ford
2	Ford
3	Ford
4	Ford
5	Ford
6	Ford
7	Ford
8	Toyota
9	Toyota
10	Toyota
11	Toyota
12	Toyota
13	Toyota
14	Toyota
15	Toyota
16	Toyota
17	Toyota
18	Toyota
19	Toyota
20	Toyota
21	Toyota
22	Toyota
23	Toyota
24	Toyota
25	GMC
26	GMC
27	GMC
28	GMC
29	GMC
30	GMC
31	GMC
Sheet1

 

[jolivanes]

Sub Like_So()
    MsgBox Range(Columns(1).Find("Toyota", , , 1, , 1), Columns(1).Find("Toyota", , , 1, , 2)).Address
End Sub