I can't seem to figure out the issue here, I keep getting the Range_Global_failed error. Trying to make this cut/paste code as short as possible:
    Range(Range("A" & count1), Range("A" & Rows.Count).Offset(xlUp)).Cut (Range("A" & count1).Offset(1))
Any suggestions?