Try this...
Sub Vel()
'
' Vel Macro
'
For i = 1 To 38
Sheets("Design Velocity Check").Cells(1, 2) = i
Range("C11").GoalSeek Goal:=0, ChangingCell:=Range("B9")
Sheets("IMQS-Upgraded").Cells(5 + i, 27) = Sheets("Design Velocity Check").Cells(9, 2)
Next i
End Sub
It might not do exactly what you...