Excel - Macro copiar con un criterio ??

Sub Copiar_Rango()

    Dim Fila_Orig as Integer, Col as Integer, Fila_Dest as Integer

    Fila_Dest = 2

    For Fila_Orig=2 to 50

        If Cells(Fila_Orig, 18) > 0 Then

            For Col=12 to 18

                Sheets("Hoja_Destino").Cells(Fila_Dest, Col) = Sheets("Hoja_Origen").Cells(Fila_Orig, Col)

            Next

            Fila_Dest = Fila_Dest + 1

        End If

    Next

End If

Sub Copiar_Filas_2()

    Application.ScreenUpdating = False

    Sheets("Hoja1").Select

    Columns("L:R").Select

    Selection.AutoFilter

    ActiveSheet.Range("$L$1:$R$150000").AutoFilter _

                Field:=7, _

                Criteria1:=">0", _

                Operator:=xlFilterValues

    Selection.Copy

    Sheets("Hoja2").Select

    Range("B2").Select

    ActiveSheet.Paste

    Sheets("Hoja1").Select

    Selection.AutoFilter

    Range("A1").Select

    Application.ScreenUpdating = True

End Sub