vba Copy Paste Conditional to put remark 1 2 3 .. etc

[fixer]

All files are located in different path
sheet name can be anything
I have a file ap.xls & Book1.xlsm
macro will be placed in Book1.xlsm
We have to look on Column S of ap.xls and If column S of ap.xls has negative numbers then we have to look on Column E of ap.xls & we will match that Column E data of ap.xls with column A of sheet1 of Book1.xlsm & if it matches then we will see wheather column C of Book1.xlsm has data in it or not & if column C of Book1.xlsm has data in it then do nothing & if column C of Book1.xlsm doesn't have data then we will go to sheet3 of Book1.xlsm and we will look for a match of Column E data of ap.xls with column A of sheet3 of Book1.xlsm & if it is found then we will copy the data from sheet3 of Book1.xlsm and paste it to sheet1 of book1.xlsm & we increase one more number in series in it

Sheet4 is the output that i need in Sheet1 (Result is pasted in sheet4 only for understanding purpose, i need result in sheet1 only)



plz see the sample file