Running a macro on combo box selection

Here you go:

Sub Macro5()
'
' Macro5 Macro
'

'
    Range("E6").Select
    ActiveCell.FormulaR1C1 = _
        "=(R[5]C*'Database 3'!R[93]C[24])-R[5]C/3*'Database 3'!R[93]C[26]"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = _
        "=(R[3]C*'Database 3'!R[92]C[24])-R[3]C/3*'Database 3'!R[92]C[26]"
    Range("E17:F18").Select
    ActiveCell.FormulaR1C1 = "24 Tanned Hides, Needle, Thread and 2 space fillers"
    With ActiveCell.Characters(Start:=1, Length:=51).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("C7:C8").Select
    ActiveCell.FormulaR1C1 = "Tanned D'hide's to bodys (Green)"
    With ActiveCell.Characters(Start:=1, Length:=32).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("C13").Select
    ActiveCell.FormulaR1C1 = "=General!R[33]C[2]"
    Range("C14").Select
    ActiveWindow.SmallScroll Down:=28
    Range("A32").Select
    ActiveCell.FormulaR1C1 = "62"
    Range("A33").Select
    ActiveWindow.SmallScroll Down:=-56
End Sub