idx = Lookup[
 AssociationThread[list1[[All, 1]] -> Range[Length[list1]]],
 list2[[All, 1]]
 ];
 list2[[idx]]

> {{A, 4}, {B, 5}, {C, 1}}