Claus,
Totally appreciate your help. That lastrow function wasn't the issue ("*" is the wildcard to look for anything [value, formula, etc]) and I've been using it as is for years on a variety of projects.

One thing I didn't check is the data that I was using. I was working off a workbook someone else sent to me and didn't realize the data was in table form and likewise had other formatting issues that made everything go kablooey. After copy/pasting all of the data into a completely virgin workbook, the codes (all of the versions submitted) works flawlessly.

Thank you again for all of your guys' help!

On Friday, September 23, 2016 at 10:08:23 AM UTC-7, Claus Busch wrote:
Hi,

Am Fri, 23 Sep 2016 09:53:47 -0700 (PDT) schrieb Matthew Dyer:

this is so bizzare. I've tried the .copy/.paste/.delete, I've tried the .cut/.insert, both attempts have the code stop executing after the destination (paste/etc) runs...

your function returns always 1 because your looking for anything with
"*". Your have to search for "". Change the function to:

Function LastRow(sh As Worksheet)
LastRow = sh.Range("A:A").Find(What:="", _
After:=sh.Range("A1"), LookIn:=xlValues).Row

End Function


Regards
Claus B.
--
Windows10
Office 2016