为什么会出现类型不匹配错误

Question

I am attempting to write a subroutine in VBA for Excel to create a customer price list.

When I step through the routine I get a type mismatch at the line where I have placed the asterisk. Can someone explain what I am doing wrong please? Below is the code as I written it so far and there may be more errors that I have yet to discover.

Sub Create_Customer_Price_List()

    Dim Counter1 As Integer
    Dim Counter2 As Integer
    Dim SectionNum As Integer
    Dim ProdNum As Integer
    Dim ProductID As String
    Dim ProductSection As String

    Worksheets("BH").Activate

    SectionNum = Range("J10", Range("J10").End(xlDown)).Rows.Count
    Range("J10").Select

    For Counter1 = 1 To SectionNum
        If ActiveCell.Value <> 0 Then
        ProductSection = ActiveCell.Offset(0, 1).Value
 *       Range("B9").Offset(Range("B9").End(xlDown), 3).Value = ProductSection


        End If

            ProdNum = Range("J10").Value

            For Counter2 = 1 To ProdNum
            ProductID = Range("L10").Value & Counter2

            Range("B9").Offset(Counter2, 0).Value = ProductID

            Next Counter2
        Range("J10").Offset(Counter1 + 1, 0).Select

    Next Counter1

End Sub

Answer 1

Range("B9").Offset(Range("B9").End(xlDown), 3).Value = ProductSection

should be:

Range("B9").Offset(Range("B9").End(xlDown).Row, 3).Value = ProductSection

You need to get the row, which will be a number