Excel VBAで次のプログラムを作って下さい。

'http://q.hatena.ne.jp/1401669282
Sub sample1()
    'A3に任意の文字列
    str_A3 = Range("A3").Value
    
    'A6とA9に任意の数字
    val_A6 = Range("A6").Value
    val_A9 = Range("A9").Value
    
    
    
    '□1から□xまで 出力繰り返し(但し□=B～G)
    Line = 1
    While (Cells(Line, "C").Value <> "")      'C列(3列目)が入っている間
        'BnにはA3とCnの文字列が結合
        Cells(Line, "B").Value = str_A3 & Cells(Line, "C").Value
            
        'D1からDxまで数字の「１」
        Cells(Line, "D").Value = 1
        
        'EnにはHn÷A6＋A9の数字
        tmp_En = (Cells(Line, "H").Value / val_A6) + val_A9
        Cells(Line, "E").Value = tmp_En
        
        'FnにはEnの80%の数字
        Cells(Line, "F").Value = tmp_En * 0.8
        
        'GnににはEnの120％の数字
        Cells(Line, "G").Value = tmp_En * 1.2
        
        
        '次の行へ
        Line = Line + 1
    Wend
End Sub