Copy rows based on criteria to new sheet, controll the destination range.

Option Explicit

Sub CommandButton1_Click()
Range("A2:E100").Clear

Dim i As Integer, Myrow As Long
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Data")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Översikt")
Myrow = 4 'change this to suite you
For i = 3 To ws1.Range("A65536").End(xlUp).Row
    If ws1.Cells(i, 3) > 0 Or ws1.Cells(i, 5) > 0 Then ws1.Rows(i).Copy ws2.Cells(Myrow, 2)
    Myrow = Myrow + 1
Next i

Blad1.Range("E2:E100").Font.Italic = True
Blad1.Range("A1:AF100").Interior.ColorIndex = 2

End Sub