Hello ejschulte2001,

If I could only type. The line should read...
  Set RngEnd = DstWks.Cells.Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False)