Getting Macros to Run Together (with same range selection as input)

I was actually addressing the second part, but got the variable name wrong. Replace

Set CloudData = Application.InputBox("Please select a range with the incident information you wish to summarize.", _
                                         "Specify Incident Information", Selection.Address, , , , , 8)

with just

Set CloudData = Selection

I would also replace

ActiveSheet.OLEObjects.Add(ClassType:="Shell.Explorer.2", Link:=False, _
        DisplayAsIcon:=False, Left:=383.25, Top:=45, Width:=324.75, Height:= _
        225).Select
    ActiveSheet.Shapes("WebBrowser1").ScaleWidth 1.480369515, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("WebBrowser1").ScaleHeight 1.3966666667, msoFalse, _
        msoScaleFromTopLeft

with

With ActiveSheet.OLEObjects.Add(ClassType:="Shell.Explorer.2", Link:=False, _
        DisplayAsIcon:=False, Left:=383.25, Top:=45, Width:=324.75, Height:= _
        225).ShapeRange
    .ScaleWidth 1.480369515, msoFalse, msoScaleFromTopLeft
    .ScaleHeight 1.3966666667, msoFalse, msoScaleFromTopLeft
End With