|To begin with, I don't like the code you provided the link for since the code is extremely inefficient because of it's use of Select.|
Rarely, if ever, is there a need to Select a sheet or range in VBA in order to perfrom an operation on it.
For example, this section ...
'Select row in Sheet1 to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
'Paste row into Sheet2 in next row
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
...could be condensed to:
' Copy/Paste Row From Sheet1 to Sheet2
The condensed version simply does the Copy/Paste "internally" as opposed to "physically" selecting the Sheets and Ranges within the worksheets.
Take a look at Response # 3 of this thread and see if it leads you in the direction you want to go:
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.