تکه کد برای ادغام سلول های اکسل

Sub milad()
For i = 9 To 750
 Set xL = Range(Cells(i, 1), Cells(i, 8))
 xL.Merge
 Next i
End Sub