Revise current macro (SOLVED)

PHP Code: 

 Dim X As Byte
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
    If X >= Sheets("PasteDataHere").[T1].Value Then Exit Do  '<=|'
Loop 


Hi Thanks for the responses i tailored your solution Trebor76 to this and it works if i manually enter it, can it be done if the value in "paste data here" T1 comes from a formula or even can the macro run until there is no data left in the "paste data here" sheet"

Heres the one that works if i manually enter a value in T1

Please Login or Register  to view this content.

Thanks again much appreciated.

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

Please Login or Register  to view this content.