Macro help please.

  • Thread starter Thread starter Ryk
  • Start date Start date
R

Ryk

I have two macros I'll put in order below after I explain, can I join
them into one, or can I make another macro that runs the first, then
the second? Each works fine, but second one loops, so combining them
is beyond me, unless there is a way to benchmark loops in code?
Anyways here they are.....

Sheets("Data Entry").Select
Range("B6:B1005").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Test").Select
ActiveWindow.SmallScroll Down:=-84
Range("A3").Select
ActiveSheet.Paste
Range("B3:C1002").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Data Entry").Select
ActiveWindow.SmallScroll Down:=-54
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 922
ActiveWindow.ScrollRow = 916
ActiveWindow.ScrollRow = 906
ActiveWindow.ScrollRow = 862
ActiveWindow.ScrollRow = 804
ActiveWindow.ScrollRow = 747
ActiveWindow.ScrollRow = 695
ActiveWindow.ScrollRow = 651
ActiveWindow.ScrollRow = 593
ActiveWindow.ScrollRow = 536
ActiveWindow.ScrollRow = 484
ActiveWindow.ScrollRow = 433
ActiveWindow.ScrollRow = 382
ActiveWindow.ScrollRow = 337
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 280
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 245
ActiveWindow.ScrollRow = 229
ActiveWindow.ScrollRow = 216
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 187
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 5
Sheets("Comparison").Select
Range("B6").Select
End Sub

RATECHOOSE Macro
' Macro recorded 9/19/2006 by ryk
'

'
Range("A3").Select
Do While Not IsEmpty(ActiveCell)
Selection.Copy
Sheets("Comparison").Select
Range("A27").Select
ActiveSheet.Paste
Range("A35").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Test").Select
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Comparison").Select
Range("A33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Test").Select
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, -2).Select
Loop
End Sub

Thanks for any help!

Dave (AKA Ryk)
 
Back
Top