Fill series but end and continue with macro if series ends at "1"

[willow1985]

Hello,

I have a vba code that will fill a series from A11 down however if there is only 1 item (A11) I need something in my code that will recognize this and not give me an error but continue with my macro. What could I add to this line to have that happen?

ActiveCell.FormulaR1C1 = "1"
Range("A11").AutoFill Destination:=Range("A11:A" & Cells(Rows.Count, "B").End(xlUp).Row), Type:=xlFillSeries

Thank you

Carla

 

[Joe4]

Wrap it in an IF/THEN block:

[COLOR=#333333]ActiveCell.FormulaR1C1 = "1"[/COLOR]
If [COLOR=#333333]Cells(Rows.Count, "B").End(xlUp).Row > 11 Then
[/COLOR][COLOR=#333333]    Range("A11").AutoFill Destination:=Range("A11:A" & Cells(Rows.Count, "B").End(xlUp).Row), Type:=xlFillSeries
End If[/COLOR]

 

[willow1985]

Works perfect! Thank you very much!

 

[Joe4]

You are welcome.