Need help in creating repeat macro

You can use a For...Next loop to get a value increasing on each pass.

An example of one is

For i = 1 to 10
Cells(i, "A").value = i
Next i

This would make cells A1 through A10 list the numbers of 1 through 10.

You can start a for...next from 30, so;

for i = 30 to 60

'do this stuff

next i

Hi, wewillexcel,

maybe like

Sub EF1036066()
Dim varArr As Variant
Dim lngArr As Long
Dim lngCtr As Long
Dim lngRow As Long
Dim lngCol As Long

Const clngSTART As Long = 30
Const clngEND As Long = 60

lngRow = 10
varArr = Array("Apple_V", "Pear_V", "Orange_V")

For lngCtr = clngSTART To clngEND
  lngCol = 6
  For lngArr = LBound(varArr) To UBound(varArr)
    Cells(lngRow, lngCol).Value = varArr(lngArr) & Format(lngCtr, "00")
    lngCol = lngCol + 1
  Next lngArr
  lngRow = lngRow + 10
Next lngCtr
End Sub

Ciao,
Holger