Private Sub CommandButton1_Click()
Dim i As Long
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
With Range("A" & i)
.Offset(, 10).FormulaR1C1 = "=RC[-10]"
.Offset(, 11).FormulaR1C1 = "=VLOOKUP(RC[-10],fab!R2C14:R6C15,2,0)"
.Offset(, 12).FormulaR1C1 = "=VLOOKUP(RC[-9],fab!R2C14:R6C15,2,0)"
.Offset(, 13).FormulaR1C1 = "=VLOOKUP(RC[-9],fab!R2C14:R6C15,2,0)"
.Offset(, 14).FormulaR1C1 = "=VLOOKUP(RC[-9],fab!R2C14:R6C15,2,0)"
.Offset(, 15).FormulaR1C1 = "=VLOOKUP(RC[-7],fab!R2C14:R6C15,2,0)"
End With
Next i
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub