r1 = UnitConvert[Quantity[{1.52, 3.45, 2.37, 0.62, 1.16, 1.42, 0.67, 1.24, 0.79, 1.0,1.74, 1.49, 1.1, 1.27, 1.53, 1.79, 1.2, 2.35, 2.23, 2.06, 1.73},"Megaparsecs"], "LightYears"]

v1 = Quantity[{650, 1800, 1300, 300, 800, 700, 400, 600, 290, 600,940, 810, 600, 730, 800, 800, 580, 1100, 1140, 900, 650},"Kilometers"/"Seconds"]

data1 = {r1, v1}[Transpose];

aj1 = Fit[data1, {1, x}, x]