Copy dòng sang sheet khác khi thỏa điều kiện

[flycat]

Xem file đính kèm trước nhe mấy anh.

Cột I hàng 15 trở đi lớn hơn E10 thì copy sang sheet Muy
Em dùng đoạn code này chạy đúng rồi, nhưng thấy nó dài dòng quá. Dài ở chỗ phải copy từng ô 1 (mà thật ra copy hết cả dòng bên sheet Main2)

    i = 15    j = 4
    While Sheet3.Cells(i, "A") <> ""
        If Sheet3.Cells(i, "I") > Sheet3.Cells(10, "E") Then
            With Sheet1
                .Cells(j, "A") = Sheet3.Cells(i, "A")
                .Cells(j, "B") = Sheet3.Cells(i, "B")
                .Cells(j, "C") = Sheet3.Cells(i, "C")
                .Cells(j, "D") = Sheet3.Cells(i, "D")
                .Cells(j, "E") = Sheet3.Cells(i, "E")
                .Cells(j, "F") = Sheet3.Cells(i, "F")
                .Cells(j, "G") = Sheet3.Cells(i, "G")
                .Cells(j, "H") = Sheet3.Cells(i, "H")
                .Cells(j, "I") = Sheet3.Cells(i, "I")
            End With
            j = j + 1
        End If
    i = i + 1
    Wend

Em muốn rút ngắn đoạn code này thì nên làm sao mấy anh? Ý tưởng là copy dòng ở sheet này sang dán ở sheet kia, nhưng chưa làm được.

Mấy anh giúp em được không ạ.
Cảm ơn nhiều lắm