Sub Macro1()
Dim Plg As Range
Set Plg = ActiveSheet.UsedRange.EntireRow
Set Plg = Plg.Rows(2).Resize(Plg.Rows.Count - 1)
Set Plg = Plg.Columns("F")
Plg.FormulaR1C1 = "=MATCH(RC3,Base!R2C4:R9C4,0)"
Plg.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Plg.Value = Empty
End Sub