VBA lines for multiple ranges

Question

I want multiple borders for the rows B1, E1 and H1. How can I extend the range command without repeating it over and over again?

the code is:

 Worksheets("Table1").Range("B1:B29").BorderAround _
 ColorIndex:=1