Hello, I have the following macro


Sub Corresp()

Dim Original As Range
Dim Shift As Range

For Each Original In Range("A3:A500")
    For Each Shift In Range("F3:F500")
        If Original.Value = Shift.Value Then
            Original.Next.Value = Shift.Next.Value
        End If
    Next
Next
 

End Sub
With small column ranges its working fine, but I need it to compare columns with 3000 or more rows. The first time I ran this with 2000 rows it took a while but worked but now if I run the macro the excel crashes.
Any ideas on how to improve the macro?