求助：数据从sheet1到sheet2用VBA实现

xue722905

下载的一个客户管理excel文档。其他的功能都还好。就是其中有一个，跟进明细检索表sheet通过客户跟进sheet表筛选出数据，然后通过VBA实现复制。

文件在附件中，其中VBA代码如下。

r = 11
    With Sheet2
        endrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = 4 To endrow
            If .Cells(i, "A") >= dt1 And .Cells(i, "A") <= dt2 Then
                If .Cells(i, "B") = strbm And .Cells(i, "C") = strxm Then
                    r = r + 1
                    For j = 1 To 6
                        .Cells(r, j) = .Cells(i, j)
                    Next
                End If
            End If
        Next
    End With


求大神，完善下。我感觉问题在.cell(r,j)=.cell(i,j)就是赋值的时候，有点问题，但是不知道如何改进。