Переменная в № ячейки

[valerij]

Что я не так делаю?
k = 25: m = 30
With Range("I(" & k & "):I(" & m & ")")
ошибка
With Range("I(k):I(m)")
ошибка
Вот весь макрос, я пытаюсь вставить, красным цвеом.
Sub Sum()
Dim myCollect As New Collection, i As Integer, x As Range, Summa As Double, El
Dim a As Long, b As Long, c As Integer, k As Long, m As Long

a = 3: b = 36: c = 48: Summa = 0: k = 25: m = 30
Do
Range("I(" & k & "):I(" & m & ")").Select
.FormulaR1C1 = "=IF(COUNTIF(НАКЛ!R2C255:R871C2 55,R[6]C)>0,R[6]C,0)"
On Error Resume Next
For i = a To b
If Sheets(1).Cells(i, "I") <> "" And Sheets(1).Cells(i, "I") <> 0 _
And Sheets(1).Cells(i, "I").HasFormula Then myCollect _
.Add Sheets(1).Cells(i, "I").Value, CStr(Sheets(1).Cells(i, "I").Value)
Next
On Error GoTo 0

For Each El In myCollect
Set x = Sheets("НАКЛ").Columns("IU").Find(w hat:=El, LookAt:=xlPart)
If Not x Is Nothing Then Summa = Summa + Sheets("НАКЛ").Cells(x.Row, "E")
Next
Sheets(1).Cells(b + 1, "I") = Summa
Set myCollect = Nothing
Summa = 0
a = a + c: b = b + c
k = k + 48: m = m + 48
Loop While Sheets(1).Cells(b, "C") <> ""
End Sub

[kisser_san]

Range("I" & k & ":I" & m).Select

[valerij]

Сообщение от kisser_san

Range("I" & k & ":I" & m).Select

Спасибо! Заработало так, не знаю правильно, ли это

Sub Sum()
Dim myCollect As New Collection, i As Integer, x As Range, Summa As Double, El
Dim a As Long, b As Long, c As Integer, k As Long
a = 3: b = 36: c = 48: Summa = 0
With Application
.EnableEvents = False
.ScreenUpdating = False
For k = 25 To 1465 Step 48
With Range("I" & k & ":I" & k + 5)
.FormulaR1C1 = "=IF(COUNTIF(НАКЛ!R2C255:R871C2 55,R[6]C)>0,R[6]C,0)"
'Do
On Error Resume Next
For i = a To b
If Sheets(1).Cells(i, "I") <> "" And Sheets(1).Cells(i, "I") <> 0 _
And Sheets(1).Cells(i, "I").HasFormula Then myCollect _
.Add Sheets(1).Cells(i, "I").Value, CStr(Sheets(1).Cells(i, "I").Value)
Next
On Error GoTo 0
For Each El In myCollect
Set x = Sheets("НАКЛ").Columns("IU").Find(w hat:=El, LookAt:=xlPart)
If Not x Is Nothing Then Summa = Summa + Sheets("НАКЛ").Cells(x.Row, "E")
Next
Sheets(1).Cells(b + 1, "I") = Summa
Set myCollect = Nothing
Summa = 0
a = a + c: b = b + c
'Loop While Sheets(1).Cells(b, "C") <> ""
End With
Next
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub