excel,VBA กำหนดช่วง วน loop ให้ตัวแปร ?

กระทู้คำถาม

ช่องใน excel A1 = 120 A2=200 A3=5
----------------------------------------------
อันนี้พยายามลองเขียนดูค่ะ ไม่เป็นเลยค่ะ
Public Sub Quantity()
Dim x As Byte
Dim y As Integer
Do
y = x * Range("A1")
Loop Until (y >= Range("A2"))
Worksheets("Sheet1").Range("A4").Value = y
End Sub
----------------------------------------------------------
อยากให้วนลูปโดย x เริ่มจาก 1 ถึง A3 (A3 คือเลขที่เรากรอกลงไปใน excel ในที่นี้กรอกเลข 5 ลงไป)
เช่น y= 1*120 , 120 น้อยกว่า 200 ดังนั้นเป็นเท็จ กลับไปวนลูป
y=2*120 , 240 มากกว่า 200 เป็นจริง ดังนนั้น แสดงผล 240 ลงในเซลล์ A4
จะเขียนยังไงดีค่ะ ? ให้วนลูป โดยที่ x เริ่มจาก 1 ถึง A3