Revise current macro (SOLVED)

Hi All

Can anyone tell me how to revise this macro to run based on a value entered into sheet "PasteDataHere" Cell T1? It currently works by the entry in red

Thanks

Sub Race()
'
' Macro5 Macro
'
Application.ScreenUpdating = False
'Let x = 0
Do While x < 10
    Sheets("PasteDataHere").Select
    Range("A1:K49").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet3").Select
    Range("A11").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("PasteDataHere").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Sheets("Sheet3").Select
    Range("M1").Select
    Call GreyCalc
    x = x + 1
Loop
End Sub