Sub main()

    Name = ""
    Name = InputBox("please enter ur name")
    [A2].Value = Name

    stno = ""
    stno = InputBox("please enter ur student number")
    [B2].Value = stno

    Weight = ""
    gender_male = True
    gender = InputBox("please enter male or female")
    Height = ""
    Height = InputBox("please enter ur height")
    [D2].Value = Height

    If gender = "male" Then
        gender_male = True
        [C2] = "male"
        Weight = (Height - 100) * 0.9
        Debug.Print ("weight:" & Weight)

    ElseIf gender = "female" Then
        gender_male = False
        [C2] = "female"
        Weight = (Height - 110) * 0.9
    Else
        MsgBox ("error")
        [C2] = "error"
    End If
    [E2].Value = Weight
    'Debug.Print (gender)
    'Debug.Print (gender_male)



    Range("A1:E2").Copy Destination:=Range("A10:E11")
    With Range("A10:E11")
        .ClearFormats
        .Borders.Color = vbBlue
        .Interior.Color = vbYellow
        .Font.Size = 18
        .Font.Bold = True
    End With
    Cells.Select
    Cells.EntireColumn.AutoFit
End Sub