Como ingresar esta fórmula mediante una macro

Este es el resultado de la macro

y esta es la macro lo de la doble fórmula con, y von ; si va a ser un problema ya que esta maquina esta diseñada para poner como primera opción ; si la PC tiene un formato diferente colocara la segunda opción, no se como funcione al revés, es decir con la, como primera opción.

Sub test2()
Worksheets.Add(After:=ActiveSheet).Name = "DATOS_RESUMEN2"
ref = 1000 'Este dato se toma de otra hoja, el dato es númerico y será variable
tope = ref + 1
cont = 1
Set datos = Range("a2").Resize(tope, 2)
With datos
    .Cells(1, 1) = 1
    .Cells(1, 1).AutoFill Destination:=Range(.Columns(1).Address), Type:=xlFillSeries
    On Error Resume Next
    .Columns(2).Formula = "=iferr(vlookup(a2;items!$b$6:$c$8885;2;0);" & """" & ")"
    If Err.Number > 0 Then
        .Columns(2).Formula = "=iferror(vlookup(a2,items!$b$6:$c$8885,2,0),"""")"
    End If
    On Error GoTo 0
End With
Set datos = Nothing
End Sub

Sorry hay un error en la macro anterior esta es la buena

Sub test()
'Declaro variables
ref = 1000 'Este dato se toma de otra hoja, el dato es númerico y será variable
tope = ref + 1
cont = 1
'Creo una nueva hoja y me dirijo a ella
Worksheets.Add(After:=ActiveSheet).Name = "DATOS_RESUMEN2"
Sheets("DATOS_RESUMEN2").Select
ActiveSheet.Range("A2").Select
'Empiezo a hacer una comparacion, donde digo que si la celda activa es igual a la variable tope, entonces que cuente cuantas celdas con datos hay en la columna A, si la celda y la variable son diferentes entonces deberá ir númerando en secuencia: 1, 2, 3, 4
For i = 2 To tope
    If ActiveCell = tope Then
        Range("A2").Select
        Rng = WorksheetFunction.CountA(Range("A:A")) ' la idea de saber cuantos datos hay es que a la hora de ingresar la formula, se ingrese en el mismo numero de filas
    Else
        'Aca es donde empiezo a enumerar las filas
        ActiveCell.Value = cont
        cont = ActiveCell.Value + 1
        ActiveCell.Offset(1, 0).Select
    End If
Next i
'A partir de acá es donde debería pegar la macro que ingrese la formula
End Sub
Sub test2()
Worksheets.Add(After:=ActiveSheet).Name = "DATOS_RESUMEN2"
ref = 1000 'Este dato se toma de otra hoja, el dato es númerico y será variable
tope = ref + 1
cont = 1
Set datos = Range("a2").Resize(tope, 2)
With datos
    .Cells(1, 1) = 1
    .Cells(1, 1).AutoFill Destination:=Range(.Columns(1).Address), Type:=xlFillSeries
    On Error Resume Next
    .Columns(2).Formula = "=iferror(vlookup(a2;items!$b$6:$c$8885;2;0);"""")"
    If Err.Number > 0 Then
    .Columns(2).Formula = "=iferror(vlookup(a2,items!$b$6:$c$8885,2,0),"""")"
    End If
    On Error GoTo 0
End With
Set datos = Nothing
End Sub

Hola gracias por responder, te cuento que probando la macro que propones me sale error en la línea

.Cells(1, 1).AutoFill Destination:=Range(.Columns(1).Address), Type:=xlFillSeries

Este es el error

En el mensaje de error esta la respuesta a tu pregunta, la macro no funciona si tienes lienas combinadas, necesitas quitarlas antes de correr la macro

Ninguna de las columnas o filas que se usan en la macro tienen celdas combinadas

De hecho en ninguna de las hojas con las que la macro trabaja tienen celdas combianadas