Sub LowBidScore()
On Error Resume Next
Application.AutoCorrect.AutoFillFormulasInLists = False
Dim nr(1)
    If nr(1) Then
    'do nothing
    Else
    For j = 3 To 12
    nr(1) = ThisWorkbook.Sheets("BerekeningenEind").Range("Q" & j).Value
        For i = 2 To ThisWorkbook.Sheets("BerekeningenEind").Range("L" & j).Value + 2
         for k = 1 to ThisWorkbook.Sheets("BerekeningenEind").Range("L" & j).Value - 1
            Range(nr(1)).Offset(i, 2 * ThisWorkbook.Sheets("BerekeningenEind").Range("M" & j).Value + 2).Activate
            ActiveCell.FormulaR1C1 = "=MIN(RC[1]:R[5]C[1])/[@[ Inschrijfprijs]]*R[-1]C"
Next k
Next i
        Next j
        End If
    End Sub