Excel VBA - Werte aus anderer Excelliste kopieren

Sub Artikel_einfügen()
'  
' Tastenkombination: Strg+b  
'  
    ' Variablen  
    Dim wsSource As Worksheet, wsDest As Worksheet, selRow As Long, intNextFree As Long, wb As Workbook, strPath As String
    ' Pfad zur Bestellvorlage  
    strPath = "F:\Kalkulator\Vorlage.xltm"  
    ' aktuelle Zeile ermitteln  
    selRow = Selection.Row
    ' aktuelles Sheet/Quelle/Preisliste ermitteln  
    Set wsSource = ActiveSheet
    ' Prüfen ob das 2. Sheet/Bestellvorlage geöffnet ist  
    For Each wb In Workbooks
        If wb.FullName = strPath Then
            Set wsDest = wb.Sheets(1)
            Exit For
        End If
    Next
    ' Bestellvorlage öffnen, falls sie noch geschlossen ist  
    If wsDest Is Nothing Then
        Set wsDest = Workbooks.Open(strPath).Sheets(1)
    End If
    ' Suche die erste freie Zelle in Spalte C ab Zeile 7  
    intNextFree = wsDest.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Row  
    ' Werte kopieren  
    wsDest.Cells(intNextFree, "C").Value = wsSource.Cells(selRow, "C").Value  
    wsDest.Cells(intNextFree, "D").Value = wsSource.Cells(selRow, "G").Value  
End Sub

    intNextFree = wsDest.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Row