i = 12
Do While i < 370
i = i + 1
j = 0
Do While j < n
j = j + 1
If ActiveSheet.Cells(i, 1).Value = Empty Then
ActiveSheet.Cells(i, 3).Value = ActiveSheet.Cells(i,3).Value
ElseIf bangsolieu(j, 1) = ActiveSheet.Cells(i, 1).Value Then
ActiveSheet.Cells(i, 3).Value = bangsolieu(j, 2)
End If
Loop
Loop