データ転記のマクロ作成をお願いします。

以下のようなマクロでいかがでしょうか。
Mastarfileのほうにマクロをコピーしていただければ動くと思います。
念のためダミーのファイルで動作確認していただけると幸いです。

任意のファイルのC列が空欄になるまで動く設定になっています。

任意のファイルは毎回かわるとのことでしたので、
ダイアログボックスを開くようにしました。
いかがでしょうか。

Sub Sample1()
Dim OpenFileName As String
Dim filename As String
Dim actBk As Workbook
Dim i, j As Integer

Set actBk = ThisWorkbook

OpenFileName = Application.GetOpenFilename("Excel ファイル (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
filename = Dir(OpenFileName)
End If

i = 1
Do Until Workbooks(filename).Sheets(1).Cells(i, 3) = ""
j = 1
Do Until actBk.Sheets(1).Cells(j, 1) = ""
If Workbooks(filename).Sheets(1).Cells(i, 3) = actBk.Sheets(1).Cells(j, 1) Then
Workbooks(filename).Sheets(1).Cells(i, 6) = actBk.Sheets(1).Cells(j, 2)
Exit Do
End If
j = j + 1
Loop
i = i + 1
Loop
End Sub