엑셀 비쥬얼 베이직 고수님..이것좀 도와주세요ㅠㅠ

[엑셀(211.195)]

지금 이 대화상자에 보험비를 선택하면 사용내역서에 보험비가 들어가고 그 아래 드롭다운즈에 있는것도 입력하면 사용내역서
바로아래에 또 입력되게끔 할려고하거든요? 보험비 선택하고 아래드롭다운즈 10000원입력 그아래 기타10000원 입력하면
3개 전부다 사용내역서에 입력되게끔 하고, (또다른 예로는 보험비를 선택안하고 그아래 선택안하고 기타만 10,000원이면 기타만 들어가게끔하게할려고하는데..) 입력하고나서 다시 입력하시겠습니까? 하고 물어보면 y누르면 또 입력하게끔 대화상자뜨게할려고하는데
분명 수업시간에 배웠는데.. no=7이니깐 E라인 no(7)에 보험비단추가 눌려있으면 보험비가 들어가게하고 참조시트에서 찾아서 금액 찾게끔
까지했는데... 그아래까지 중복입력되게하거나 중복입력 안되게끔할려면 어떤식으로 풀어야될지모르겠네요..
도와주세요.ㅠㅠ


Sub 고정비()
'
' 입력 Macro
'
' 바로 가기 키: Ctrl+b
'
   
    DialogSheets("지출입력").Show
   
    no = 7

    If Range("E" & no) = "" Then
   
    Range("E" & "no").Select
    If DialogSheets("지출입력").OptionButtons("보험비단추").Value = xlOn Then
    ActiveCell.FormulaR1C1 = "보험비"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").DropDowns("지출상자").Text
    Range("F7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("금액입력상자").Text
    Range("E7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("기타입력상자").Text
    Range("F7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("기타금액입력상자").Text

    ElseIf DialogSheets("지출입력").OptionButtons("선택안함단추").Value = xlOn Then
    ActiveCell.FormulaR1C1 = ""
    Range("E7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").DropDowns("지출상자").Text
    Range("F7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("금액입력상자").Text
    Range("E7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("기타입력상자").Text
    Range("F7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("기타금액입력상자").Text
   
    no = 0
   
    Else
    no = no + 1

End Sub

[엑셀(211.195)]

다시입력하시겠습니까? 이거는 제가 어떻게 시도해볼텐데..이게 3개 분류중에 하나만 입력하면 하나만 입력하게끔되고 2개입력하게끔하면 2개입력되고 3개다입력하면 3개다 입력되고 그다음 사용내역서 한군대말고 순차적으로 아래로 계속 입력되는 형식 만들려고하는데..도와주세요..ㅠ