Cut Paste data basis criteria

I need to create a macro that will find the data basis criteria and then cut and paste the entire data into another sheet.

Example the Sampel data attached contains a file. I would like to get a help on a macro that will Search for any occurance of word "Summary" in Sheet1 if found then from first low till that Summary ocuurance cut the entire data and paste it in new sheet. Then again start seraching for summary word if found again then cut the data from first row (remember this time it start picking data from next row of first summary occurance) till summary needs to cut paste in new sheet and so on. All the blank rows before first record needs to be deleted.

If possible then name the new worksheets basis the summary type. for example first wud be "Summary Receivable" and second "Summary Payable".


Thanks in Advance for any help if i can get onto it.

Regards,

The solution provided in the the given link is not applicable onto my issue. Appriciate any help if I can get on issue posted..

Someone please help...