Macro copiar datos de Libro1 a Libro2 ejecución muy lenta

Tengo esta macro, para abrir y copiar ciertas columnas de Libro 1 a Libro 2, con el problema que es excesivamente lenta, necesitaría que alguien pudiese ayudarme a corregir mi error en la creación de la misma.

Sub copiar()
Application.ScreenUpdating = False
    Sheets("Hoja2").Select
    ActiveSheet.Range("A2:E300").Select
    Selection.Clear
'Cargar datos de otro libro
Workbooks.Open "C:\Users\Juan Pedro\Desktop\201503_DELIVERY PLAN.XLSM"
Set h1 = Workbooks("201503_DELIVERY PLAN.XLSM").Sheets("Marzo,15")
Set h2 = Workbooks("HONDA.XLSM").Sheets("Hoja2")
j = 2
For I = 9 To h1.Range("A" & Rows.Count).End(xlUp).Row
    If h1.Cells(I, "M") > 0 Then
    'Rango a copiar
        h1.Range("C" & I).Copy: h2.Range("A" & j).PasteSpecial xlPasteValues
        h1.Range("E" & I).Copy: h2.Range("B" & j).PasteSpecial xlPasteValues
        h1.Range("H" & I).Copy: h2.Range("C" & j).PasteSpecial xlPasteValues
        h1.Range("M" & I).Copy: h2.Range("D" & j).PasteSpecial xlPasteValues
        j = j + 1
        Application.CutCopyMode = False
    End If
Next
Sheets("Hoja2").Select
Application.ScreenUpdating = True
End Sub