Hi. This is the macro that I currently have. As you can see it starts w/ rows(21:21), however, if row 21 is enter and you run the macro again, it starts again at row 21 hence copying down whatever is currently in row 21 to 22. I do not want this macro to do that. i want it to start at the next empty row if previous rows are occupied. how do i do that? Thanks.
<!-- BEGIN TEMPLATE: bbcode_code -->
Code:
<STYLE>.alt2 font {font: 11px monospace !important;color: #333 !important;}</STYLE>
Sub NewJob()''
NewJob Macro'
To insert new jobs.
Rows("21:21").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("I20").Select
Selection.Copy
Range("I21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("K20").Select
Selection.Copy
Range("K21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("O20").Select
Selection.Copy
Range("O21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A26").Select
End Sub
</PRE>
<!-- BEGIN TEMPLATE: bbcode_code -->
Code:
<STYLE>.alt2 font {font: 11px monospace !important;color: #333 !important;}</STYLE>
Sub NewJob()''
NewJob Macro'
To insert new jobs.
Rows("21:21").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("I20").Select
Selection.Copy
Range("I21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("K20").Select
Selection.Copy
Range("K21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("O20").Select
Selection.Copy
Range("O21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A26").Select
End Sub
</PRE>
Last edited: