Revise current macro (SOLVED)

Originally Posted by Trebor76

Yes, however the value in cell T1 gets there it will work.

Thanks for your help Trebor76 it works a treat i had to adjust the following in red otherwise it would run the macro half the amount of times

Cheers

Sub Race()
'
' Macro5 Macro
'
Application.ScreenUpdating = False
'Let x = 0
Do While X < Sheets("PasteDataHere").Range("T1").Value
    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 + 0
Loop
End Sub