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