Run-time error '6': Overflow HELP!

Hi,
Instead of having 4 macros i decided to merge them into 1.
It works fine when the data set is quite small, but when i have a large one now i get the error Run-time error '6' Overflow.
The debug shows that it is Lastrow = Range("A" & Rows.Count).End(xlUp).Row that is causing the problem. Can anyone see what is wrong

Please Login or Register  to view this content.

Kind regards and thanks a lot!!!

try it

Please Login or Register  to view this content.