Sub ActuOrigin()
derl = Sheets("Masterdata").Range("A" & Rows.Count).End(xlUp).Row
derc = Sheets("Masterdata").Cells(10, Columns.Count).End(xlToLeft).Column
Tablo1 = Sheets("Masterdata").Range(Sheets("Masterdata").Cells(11, 1), Sheets("Masterdata").Cells(derl, derc))
For f = 2 To Worksheets.Count
derlin = Sheets(f).Range("A" & Rows.Count).End(xlUp).Row
dercol = Sheets(f).Cells(10, Columns.Count).End(xlToLeft).Column
Tablo2 = Sheets(f).Range(Sheets(f).Cells(11, 1), Sheets(f).Cells(derlin, dercol))
For n = LBound(Tablo1, 1) To UBound(Tablo1, 1)
For m = LBound(Tablo2, 1) To UBound(Tablo2, 1)
If Tablo1(n, 1) = Tablo2(m, 1) Then
For p = 20 To dercol
Tablo1(n, p) = Tablo2(m, p)
Next
End If
Next
Next
Next
Sheets("Masterdata").Range("A11").Resize(UBound(Tablo1, 1), UBound(Tablo1, 2)) = Tablo1
End Sub