using error line

[still learning]

Hi

I have a macro that adds a blank line to a row of dates. (to separate each row)
When it gets to the end, I get an error message.
I tried to add an ERROR LINE, but I’m doing something wrong
When it gets to the last line it gives me an error message I thing since >>End(xlDown) takes it to the bottom of the sheet .
I am using a looping macro to start it

Sub newmultiplefills() 
Dim I
For I = 1 To Range("dates")
    Macro3
Next I
errorline: Exit Sub
End Sub

Sub Macro3()
On Error GoTo errorline
    ActiveCell.Range("A1:B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Range("A1").Select
errorline:     Exit Sub
End Sub

mike

 

[Yongle]

Is this what you want ?

Sub newmultiplefills()
    Dim r As Long, c As Long
    c = ActiveCell.Column
    r = ActiveCell.Row
    For r = r - 1 + [dates] To r Step -1
        Cells(r, c).Resize(, 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next r
End Sub

 

[still learning]

Hi Yongle
Hope your well
Yep that'll work just fine. Sure is a lot neater than what i had

Just wondering.....it stops after about 15 rows. when I had about 30 rows to separate . I don't see where that is in the code
Can I increase or decrease it??

mike

 

[Yongle]

What is the value of named range "Dates" ?
- that is your constraint

 

[still learning]

I see
Thanks again

mike