Sub Application_formule()
With ActiveSheet
For Each c In .Range("F6:F" & .Range("F" & Rows.Count).End(xlUp).Row)
x = Cells(c.Row, 7).End(xlDown).Value
If c <> "" And c.Offset(0, 1) = "" Then _
c.Offset(0, 1).Value = (c.Value * x) / 100
Next c
End With
End Sub