EXCEL VBA如何加變數?

Sub Macro6()

For CNT = i To 166
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, "V:\Page.htm", "Sheet1", _
"$A$1:$A$54", xlHtmlStatic, "Book1_5857", "")
.Publish (True)
.AutoRepublish = False
End With
Next CNT
End Sub

1.我想在V:\Page.htm 加 i 這變數(跑到166)
例如 V:\Page(i).htm
2.以及$A$1:$A$54 每次迴圈數值+54
例如 第一圈是$A$1:$A$54
第二圈是$A$55:$A$109..

我不會寫VB~拜託大家了..