合并函数与范围和单元格

Merge Function with Range and Cells

我正在尝试循环合并单元格:

WS1.Range(.Cells(2, 2 + ((i - 1) * 9)), .Cells(2, 2 + ((i - 1) * 9) + 5)).Merge

但是没有用;正确的做法是什么?

WS1.Range(WS1.Cells(2, 2 + ((i - 1) * 9)), WS1.Cells(2, 2 + ((i - 1) * 9) + 5)).Merge