Makro målsøgning

Det er måske nemmere at forstå opgaven, hvis jeg viser en makro som virker, men som bør kunne optimeres ved noget loop.

Sub Målsøgning()
'
    Range("C13").GoalSeek goal:=Range("C14"), changingcell:=Range("C3")
    Range("D13").GoalSeek goal:=Range("D14"), changingcell:=Range("D3")
    Range("E13").GoalSeek goal:=Range("E14"), changingcell:=Range("E3")
    Range("F13").GoalSeek goal:=Range("F14"), changingcell:=Range("F3")
    Range("G13").GoalSeek goal:=Range("G14"), changingcell:=Range("G3")
    Range("H13").GoalSeek goal:=Range("H14"), changingcell:=Range("H3")
    Range("I13").GoalSeek goal:=Range("I14"), changingcell:=Range("I3")
    Range("J13").GoalSeek goal:=Range("J14"), changingcell:=Range("J3")
    Range("K13").GoalSeek goal:=Range("K14"), changingcell:=Range("K3")
    Range("L13").GoalSeek goal:=Range("L14"), changingcell:=Range("L3")
    Range("M13").GoalSeek goal:=Range("M14"), changingcell:=Range("M3")
         
End Sub

Efter at have testet ovenstående, så opdager jeg nu at makroen ikke altid kan finde en løsning, fordi jeg i alle mine formler har afrundet til nærmeste heltal.
Kan man tilføje et maks antal iterationer eller acceptere at Goalseek bare skal ramme indenfor +/- 3 stk eller noget i den stil.
Håber virkelig at nogen kan hjælpe.

Opretter ny tråd med yderligere præcisering