VBA fill series if data present otherwise proceed to next

[willow1985]

I have a report that fills in data from B10 to N10 and down. the amount of rows that get filled can vary and sometimes it is only 1 row of data B10:N10.

I like to Number these rows in column A starting with A10 as "1".

I want to modify my VBA code to number the rows if there is more than 1 row of data (basically if there is data in B11).

How would I modify this code?

If there is data in B11 fill series to end, if not proceed to the next part of the code.

Thank you to anyone who can help!

    Range("A10").Select
    ActiveCell.FormulaR1C1 = "1"

'Here is the part I need modified:
        Range("A10").AutoFill Destination:=Range("A10:A" & Cells(Rows.Count, "B").End(xlUp).Row), Type:=xlFillSeries
Calculate
    Range("A1").Select

Sheets("DATA").Select

If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then
  ActiveSheet.ShowAllData
  End If

Sheets("Weekly").Select

Application.ScreenUpdating = True

MsgBox "Weekly Report Complete"

End Sub

 

[JoeMo]

Maybe change the line you want to modify to this:

If Not IsEmpty(Range("B11")) Then
    Range("A10").AutoFill Destination:=Range("A10:A" & Cells(Rows.Count, "B").End(xlUp).Row), Type:=xlFillSeries
End If

 

[willow1985]

Maybe change the line you want to modify to this:

If Not IsEmpty(Range("B11")) Then
    Range("A10").AutoFill Destination:=Range("A10:A" & Cells(Rows.Count, "B").End(xlUp).Row), Type:=xlFillSeries
End If

This is perfect, thank you!

 

[JoeMo]

This is perfect, thank you!

You are welcome - thanks for the reply.