I have to do this boring copy paste job on my pismo.
These are the three programs I have written but they do not jump to the next line automatically and are not linked
How do l make it so that i only hit the return key and it does my work for me
Sub DoRows()
End Sub
Sub InsertRows3()
'
' InsertRows3 Macro
' Macro recorded 21/6/00 by Mol Gen
'
' Keyboard Shortcut: Option+Cmd+i
'
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End Sub
Sub CopyCells()
'
' CopyCells Macro
' Macro recorded 21/6/00 by Mol Gen
'
' Keyboard Shortcut: Option+Cmd+c
'
ActiveCell.Offset(-8, -3).Range("A1

11").Select
ActiveCell.Offset(2, 0).Range("A1").Activate
End Sub
Sub DoRows()
End Sub
Sub InsertRows3()
'
' InsertRows3 Macro
' Macro recorded 21/6/00 by Mol Gen
'
' Keyboard Shortcut: Option+Cmd+i
'
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End Sub
Sub CopyCells()
'
' CopyCells Macro
' Macro recorded 21/6/00 by Mol Gen
'
' Keyboard Shortcut: Option+Cmd+c
'
ActiveCell.Offset(-8, -3).Range("A1

11").Select
ActiveCell.Offset(2, 0).Range("A1").Activate
End Sub
Sub DoRows()
End Sub
Sub InsertRows3()
'
' InsertRows3 Macro
' Macro recorded 21/6/00 by Mol Gen
'
' Keyboard Shortcut: Option+Cmd+i
'
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End Sub
Sub CopyCells()
'
' CopyCells Macro
' Macro recorded 21/6/00 by Mol Gen
'
' Keyboard Shortcut: Option+Cmd+c
'
ActiveCell.Offset(-8, -3).Range("A1

11").Select
ActiveCell.Offset(2, 0).Range("A1").Activate
End Sub