gotcha ... Set statement should be placed ahead of r2.value = r1.value ..macro works brilliantly. Thanks foor the help

r2.Value = r1.Value
Set r2 = DestRange.Rows(DestRange.Rows.Count + 1) 'Next empty row