求大神指导 为什么在表格1执行这个代码后只能填充到表格2的第4行，不会自动往下...

hgh_

Sub zz()
    zh = Array([b2].Value)
    xh = Array([b3].Value)
    dj = Array([b4].Value)
    ch = Array([b5].Value)
    sj = Array([b6].Value)
    sf = Array([b7].Value)
    dh = Array([b8].Value)
    With Sheet1
        lr = .[b65536].End(3).Row + 1
        .Cells(lr, 4).Resize(1, UBound(zh) + 1) = zh
        .Cells(lr, 5).Resize(1, UBound(xh) + 1) = xh
        .Cells(lr, 6).Resize(1, UBound(dj) + 1) = dj
        .Cells(lr, 9).Resize(1, UBound(ch) + 1) = ch
        .Cells(lr, 10).Resize(1, UBound(sj) + 1) = sj
        .Cells(lr, 11).Resize(1, UBound(sf) + 1) = sf
        .Cells(lr, 12).Resize(1, UBound(dh) + 1) = dh
        If lr = 2 Then
            .Cells(lr, 1) = 1
        Else
            .Cells(lr, 1) = .Cells(lr - 1, 1) + 1
        End If
    End With
    Range("b2").Select
End Sub

hgh_

已解决！！！！！