inicializar el contador

[cuexco]

'Hola a todos, tengo el siguiente código:

Sub PegarDato()

Sheets(2).Select

'los datos que evalúo los obtengo de las celdas "Q10" y "R10" de la hoja2, donde establezco el rango que necesito sumar,
'por decir necesito el total de los dias 1 al 7
'y para que sume las celdas "J74" a partir de la hoja4 ya intenté sumar "3" al primer parámetro algo como esto:

'For i = Range("Q10").Value + 3 To Range("R10").Value

'pero creo que no es correcto porque no me da resultado

'de nuevo necesito su ayuda...

If Range("Q10").Value <> "" And Range("R10").Value <> "" Then

MsgBox "Los parámetros son: " & Range("Q10").Value & " a " & Range("R10").Value

'Este ciclo se aplica a partir de la hoja4

For i = Range("Q10").Value To Range("R10").Value
Sheets(i).Select
suma = suma + Range("J74").Value
Sheets(2).Select
Range("P10").Value = suma
Next
Else
MsgBox "¡Indique los parámetros!", vbCritical
End If
End Sub


'espero haberme explicado,

'gracias por sus atenciones.

'saludos