In cell F7 i have the formula '=E7/(E7+C7)*100'

Im trying to set up a code to goal seek:

set cell: F7
to value: i as an integer 0.1 to 15 (with 0.1 intervals)
By Changing Cell: E7


I have got it partially working (see below) though it is messy and I don’t know how to get i with different intervals than 1?

Sub test()
Dim ws1 As Worksheet, ws2 As Worksheet, i As Integer, OldVal, Header
Header = Array("F7", "E7")
Set ws1 = ActiveSheet
Sheets.Add after:=Sheets(Worksheets.Count)
Set ws2 = ActiveSheet
ws2.Range("A1:C1").Value = Header
For i = 1 To 5
ws2.Range("A" & i + 1).Value = i
ws2.Range("B" & i + 1).Value = ws1.Range("F7").Value
OldVal = ws1.Range("E7").Value
ws1.Range("F7").GoalSeek Goal:=i, ChangingCell:=ws1.Range("E7")
ws2.Range("C" & i + 1).Value = ws1.Range("E7").Value
ws1.Range("E7").Value = OldVal
Next i
End Sub