View Customers Past Due Date With Other Criteria

I need a macro that will find a row on "Sheet4" that has the word "YES" in column "K" and then varify that there is a balance owed (<$0.00) in column "N" of that same row. If there is a balance owed I need the macro to copy the data from that row into a specific place on "Sheet2" (Column "C" to E10 on the new sheet, D to E11, Q to E12, R to M12, S to T12, G to Y26, H to AF29, M to AF30, N to AF32, and lastly the current date to AC10) then Copy that sheet to a new workbook then rename the copied sheet the the Value of "E10" on that sheet and then clear the data on "Sheet2" so that only the information that was on the sheet before the data transfer is left, If there is no balance owed then it continues down column "K" on it's own to check the next one until it reaches the end of the data in "sheet4" (which is row 2111).

My goal is to be able to use this Macro to sift through a list of customers and to find ones that are past due on their bill (Based of of Column "K" which states that Yes the Bill is past due, and then variefies that it hasn't already been paid by checking the Balance Due Column "N") and then transfers their customer information to an invoice and then moves the invoice to a New workbook (So as to not clutter up my already to large Customer workbook)

This is the code that I have been playing with but i'm getting stuck on how exactlly to do this so i'm sure theres a lot in there that doesn't make any sense.

Sub FindandCopyRows()
Dim Data As Variant
Dim DataFound() As Variant
Dim iValue As Integer
Dim j As Long
Dim i As Integer