[COLOR="DarkSlateGray"][B]Sub database2()
Dim i&, j&
Dim dCol3, dCol6, dCol16, dCol18, dCol19, dCol21
dCol3 = Range("C2:C43149").Value
dCol6 = Range("F2:F43149").Value
dCol16 = Range("P2:P43149").Value
dCol18 = Range("R2:R7391").Value
dCol19 = Range("S2:S7391").Value
dCol21 = Range("U2:U7391").Value
For j = 1 To 43148
For i = 1 To 7390
If dCol3(j, 1) = dCol18(i, 1) And dCol16(j, 1) = dCol19(i, 1) Then dCol6(j, 1) = dCol21(i, 1): Exit For Else dCol6(j, 1) = "."
Next
Next
Range("F2:F43149").Value = dCol6
End Sub[/B][/COLOR]