Looping Calculated Data and Pasting to Another Location

Hi Guys- You can see from the code below that I am trying to paste a cell from one sheet (master gaming report) into another (Risk Tool) and then copy the results (some calculations are made) and pate them as trasnposed values into another sheet(output).

This is working fine, what I can't do is make the this loop. I need it to copy each cell from column B in 'mater gaming report' and paste all of those caluculations into output (as trasnposed values), so that I have a whole bunch of rows with each values calculations (rows should equal the amount of values found in col. B of master gaming report). Any help would be much appreciated.

Here is my code:

Sub output()
'
' output Macro
'
' Keyboard Shortcut: Ctrl+q
'
Rows("2:1258").Select
Selection.ClearContents
Range("A2").Select
Sheets("Risk Tool").Select
Range("E19").Select
Selection.ClearContents
Sheets("Master Gaming Report").Select
Range("B2").Select
Selection.Copy
Sheets("Risk Tool").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
Range("X2:X25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Output").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A3").Select
End Sub