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

Originally Posted by wewillexcel

@Speshul: This would be for ordering numbers sequentially down a column, no? I am looking to do this across the top row, and not just to enter numbers but to enter something like "_V30" to "_V60" at the end of a variable name like "Apple."

To go across columns instead of rows;

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

Instead of

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

The i increases by one each time, the i can be placed anywhere or mean anything as well, for example if you had an array it could be used to pick one of the array values and put it at the end of a string; MyString & MyArr(i)