Da trong Chương 11 Vòng Lặp có bài tập bên dưới nhưng em chỉ thực hiện

Da Chào Thầy trong Chương 11: Vòng Lặp có bài tập bên dưới, nhưng em chỉ thực hiện được yêu cầu dùng vòng lặp For, còn vòng lặp For Each thì kết quả lại ra sai, nhờ Thầy xem giúp em đoạn code bị sai chỗ nào ạ

Sub ForEach_Next()

    'Gan bien doi tuong

    Dim MucGia, SoLuong As Range

        Set MucGia = Sheets(1).Range("A9:A13")

        Set SoLuong = Sheets(1).Range("B9:B13")

    'Gan bien phan tu

    Dim a, b As Object

        For Each a In MucGia

        For Each b In SoLuong

            'Tinh Doanh Thu

            Dim DoanhThu As Long

                DoanhThu = a.Value * b.Value

            'Tinh Chi Phi

            Dim ChiPhi As Long

                ChiPhi = b.Value * Range("D2").Value + Range("D1").Value

            'Tinh Loi Nhuan

            Dim LoiNhuan As Long

                LoiNhuan = DoanhThu - ChiPhi

                a.Offset(0, 2).Value = LoiNhuan

        Next a, b

    MsgBox "Hoan Thanh"

End Sub