Frank or Any other help

[bloubul]

Frank or Any other help.
How far can an excel macro be pushed, I have created the following macro using excels macro creating facility, but there is “ONE” flaw with this macro…. And this is where I need expert help.

As the macro stands at this moment it is static…. No more use of it….

What I need to add to this macro is a function to keep the macro a live for future use.

The macro starts with “Range("BB511:BF511").Select”, which is correct.
Now for the next time it must start with “Range("BB512:BF512").Select. and increase all other Ranges with 1, so the next time increase again with 1, only on the PowerBall Sheet. The Ranges on Sheets("3 Draws").Select DOES not change what so ever that remains “STATIC”

Can it be done? Here is the full macro.

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Sheets("PowerBall").Select
Range("BB511:BF511").Select
Selection.Copy
Sheets("3 Draws").Select
Sheets("3 Draws").Name = "3 Draws"
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PowerBall").Select
Range("BB512:BF512").Select
Application.CutCopyMode = False
Selection.Copy
Range("BD514").Select
Sheets("3 Draws").Select
Sheets("3 Draws").Name = "3 Draws"
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PowerBall").Select
Sheets("PowerBall").Name = "PowerBall"
Range("BB513:BF513").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("3 Draws").Select
Range("B16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PowerBall").Select
Range("BB514:BF514").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("3 Draws").Select
Range("B21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PowerBall").Select
Range("BB515:BF515").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("3 Draws").Select
Range("B26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PowerBall").Select
Range("BB516:BF516").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("3 Draws").Select
Range("B31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PowerBall").Select
Range("BB517:BF517").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("3 Draws").Select
Range("B36").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveWindow.SmallScroll Down:=12
Sheets("PowerBall").Select
Range("BB518:BF518").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("3 Draws").Select
Range("B41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("PowerBall").Select
Range("BB519:BF519").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("3 Draws").Select
Range("B46").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("G43").Select
ActiveWindow.SmallScroll Down:=-27
End Sub

BlouBul