Need help in creating repeat macro

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