Subset while doing a “Match”

Question

I have the following dataframes

#Clear Environment
rm(list=ls()) 

#Data to be matched
  Data <- data.frame(
    Register = c(141 ,565, 1411,501),
    Name