Em có viết 1 đoạn code để lấy thông tin em có lồng ghép IF với Vlookup tuy

 Em có viết 1 đoạn code để lấy thông tin, em có lồng ghép IF với Vlookup tuy nhiên đoạn code báo lỗi. Mong các thầy hộ trợ giúp em. Em cảm ơn ạ. Đoạn code

Sub ltt()

   Application.ScreenUpdating = True

    Dim wb As Workbook

    Set wb = ThisWorkbook

    Dim i As Long

    Dim lraw1 As Long

     lraw1 = wb.Sheets("DS Chung Tu").Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To lraw1

    If wb.Sheets("DS Chung Tu").Cells(i, "E") <> "643HH" Then

            wb.Sheets("DS Chung Tu").Cells(i, "K") = Application.WorksheetFunction.VLookup(wb.Sheets("DS Chung Tu").Cells(i, "K"), wb.Sheets("DM Phuong").Range("A2:D24"), 4, 0)

    ElseIf wb.Sheets("DS Chung Tu").Cells(i, "E") = "643HH" Then

            wb.Sheets("DS Chung Tu").Cells(i, "K") = Application.WorksheetFunction.VLookup(wb.Sheets("DS Chung Tu").Cells(i, "A"), wb.Sheets("sheet2").Range("A2:D & lraw2"), 3, 0)

        Else

            Cells(i, "K") = "Chi c?c"

       End If

       If wb.Sheets("DS Chung Tu").Cells(i, "E") <> "643HH" Then

            wb.Sheets("DS Chung Tu").Cells(i, "J") = Application.WorksheetFunction.VLookup(wb.Sheets("DS Chung Tu").Cells(i, "J"), wb.Sheets("DM Phuong").Range("A2:D24"), 3, 0)

      ElseIf wb.Sheets("DS Chung Tu").Cells(i, "E") = "643HH" Then

            wb.Sheets("DS Chung Tu").Cells(i, "J") = Application.WorksheetFunction.VLookup(wb.Sheets("DS Chung Tu").Cells(i, "A"), wb.Sheets("sheet2").Range("A2:D & lraw2"), 3, 0)

        Else

       Cells(i, "J") = "Chi c?c"

        End If

     wb.Sheets("DS Chung Tu").Cells(i, "L") = Application.WorksheetFunction.VLookup(wb.Sheets("DS Chung Tu").Cells(i, "H"), wb.Sheets("Loai Thue").Range("A2:B67"), 2, 0)

Next i