Remove line if x, add line if y

[jalrs]

Good morning guys,

I would like to delete the entire row if my column M cells are equal to 0,000, starting on row 2.
I would also like to add a new line, immediately under the one where the condition is met, if my column K cells are greater than the matching column L cells.

My code is as follows:

Sub play()

Dim livro1 As Workbook
Dim folha1 As Worksheet
Dim folha2 As Worksheet
Dim ultimalinha1 As Long

Set livro1 = ThisWorkbook
Set folha1 = livro1.Worksheets("ZPO1")
Set folha2 = livro1.Worksheets("Play")

ultimalinha1 = folha1.Cells(Rows.Count, "A").End(xlUp).Row

folha2.UsedRange.Offset(1).Cells.ClearContents

    With folha1
    
        .Range("A2:O" & ultimalinha1).Copy
        folha2.Cells(2, 1).PasteSpecial Paste:=xlPasteFormats
        folha2.Cells(2, 1).PasteSpecial Paste:=xlPasteValues
    
    End With
    
Application.CutCopyMode = False

folha2.Activate

folha2.Range("A2").Select
    
End Sub

Any help is greatly appreciated.

Thanks!

 

[jalrs]

Upping this for the other side of the world.

Thanks

 

[jalrs]

Upping this for my side of the world.

Thanks

 

[Skybluekid]

Are you able yo upload some data?

 

[jalrs]

Are you able yo upload some data?

Hello,

Thanks for your answer.

I can yes. Will prepare some dummy data and share via dropbox. Is this ok to you?

Thanks!

 

[jalrs]

@Skybluekid ,

I have the file ready, waiting to hear from you. fornecedores.xlsm

Thanks

 

[Fluff]

I have the file ready, waiting to hear from you.

Then just post a link here to your file.

 

[jalrs]

Then just post a link here to your file.

Forgot to add, just edited the post.

Thanks for the alert, Fluff

 

[jalrs]

@Skybluekid ,

Please consider this file, as the previous one was already filled with data on "Play" Sheet. fornecedores.xlsm

Thanks

 

[jalrs]

Im upping this for the otherside of the world.
Sorry if i am upping this too much, but im willing to finish my second project on the company.

See you when I wake up, means I Will up this again for my side of the world

Any help is greatly appreciated

Thanks!