Sub Test()
    Dim Lr As Long, I As Long

    Application.ScreenUpdating = False
        With Sheet1
            Lr = .Cells(Rows.Count, 2).End(xlUp).Row
            
            For I = Lr To 8 Step -1
                If .Cells(I, 11).Value = 1 Then
                    .Cells(8, 13).Resize(1, 9).Value = .Cells(I, 1).Resize(1, 9).Value
                    Exit For
                End If
            Next I
        End With
    Application.ScreenUpdating = True
End Sub