Snasui Excel Forum

Code: Select all

Sub Macro12()
For i = 1 To 15
Cells(i, 1) = ((i + 4) Mod 5) + 1
Next i
End Sub

Code: Select all

Sub Macro12()
'
' Macro12 Macro
'
' Keyboard Shortcut: Ctrl+Shift+W
'
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.End(xlDown).Select
Range("A6").Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlDown).Select
Range("A11").Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlDown).Select
Range("A21").Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlDown).Select
Range("A41").Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range("B1").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub

Code: Select all

Sub Macro12()
'
' Macro12 Macro
'
' Keyboard Shortcut: Ctrl+Shift+W
'
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.End(xlDown).Offset(1, 0).Select
    'Range("A6").Select
    ActiveSheet.Paste
    Selection.End(xlUp).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.End(xlDown).Offset(1, 0).Select
    'Range("A11").Select
    ActiveSheet.Paste
    Selection.End(xlUp).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.End(xlDown).Offset(1, 0).Select
    'Range("A21").Select
    ActiveSheet.Paste
    Selection.End(xlUp).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.End(xlDown).Offset(1, 0).Select
    'Range("A41").Select
    ActiveSheet.Paste
    Selection.End(xlUp).Select
    Range("B1").Select
    Application.CutCopyMode = False
    Range("A1").Select
End Sub