alan myers
Board Regular
- Joined
- Oct 31, 2017
- Messages
- 119
- Office Version
- 365
- Platform
- Windows
Sub step1()
'
' step1 Macro
'
For x = 0 To 50
'
Range("A111").Select
Selection.Cut
Range("C110").Select
ActiveSheet.Paste
Range("A112").Select
Selection.Cut
Range("D110").Select
ActiveSheet.Paste
Range("A110:D110").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-54
Range("A55+x").Select
ActiveSheet.Paste
Range("C61").Select
ActiveWindow.SmallScroll Down:=57
Rows("110:111").Select
Selection.Delete Shift:=xlUp
Range("C119").Select
Next x
this part
Range("A55+x").Select
End Sub
'
' step1 Macro
'
For x = 0 To 50
'
Range("A111").Select
Selection.Cut
Range("C110").Select
ActiveSheet.Paste
Range("A112").Select
Selection.Cut
Range("D110").Select
ActiveSheet.Paste
Range("A110:D110").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-54
Range("A55+x").Select
ActiveSheet.Paste
Range("C61").Select
ActiveWindow.SmallScroll Down:=57
Rows("110:111").Select
Selection.Delete Shift:=xlUp
Range("C119").Select
Next x
this part
Range("A55+x").Select
End Sub