Try this and let me know what else you need.
In "SECONDARY SHEET" vba:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 3 Then updateRates
Worksheets("SECONDARY SHEET").Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
In a module in vba:
Sub updateRates()
Application.ScreenUpdating = False
Dim bottom, selRow As Long
Dim doorInfo As String
Sheets("MAIN SHEET").Activate
bottom = Cells(Rows.Count, "U").End(xlUp).Row
For i = 13 To bottom
Range("R" & i).Select
doorInfo = Selection.Value
Sheets("SECONDARY SHEET").Select
Cells.Find(What:=doorInfo, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
selRow = Selection.Row
Range("C" & selRow).Copy
Sheets("MAIN SHEET").Select
Range("DG" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next i
Range("A1").Select
End Sub
Here is your example with the code:
Bookmarks