Das "Master" ist Sheets(1):

Sub Lina()
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction

For i = 2 To Sheets.Count
    With Sheets(i)
        mx = WSF.Max(.Columns(2))
        rr = WSF.Match(mx, .Columns(2), 0)
        .Range(.Cells(rr, "F"), .Cells(rr, "I")).Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
    End With
Next i
End Sub