Excel - bestimmte Zellen einer ausgewählten Zeile per Makro kopieren

Sub CopyValues()
    ' Variables  
    Dim wsSource As Worksheet, wsDest As Worksheet, selRow As Long, intNextFree As Long, wb As Workbook, strPath As String
    ' Path to Bestellung.xlsx  
    strPath = "E:\bestellung.xlsx"  
    ' get selected row  
    selRow = Selection.Row
    ' set source sheet  
    Set wsSource = ActiveSheet
    ' check if second workbook is already open  
    For Each wb In Workbooks
        If wb.FullName = strPath Then
            Set wsDest = wb.Sheets(1)
            Exit For
        End If
    Next
    ' open second workbook if not open  
    If wsDest Is Nothing Then
        Set wsDest = Workbooks.Open(strPath).Sheets(1)
    End If
    ' get next free row in column A  
    intNextFree = wsDest.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row  
    ' copy values from selected row to destination sheet  
    wsDest.Cells(intNextFree, "A").Value = wsSource.Cells(selRow, "A").Value  
    wsDest.Cells(intNextFree, "B").Value = wsSource.Cells(selRow, "C").Value  
    wsDest.Cells(intNextFree, "D").Value = wsSource.Cells(selRow, "F").Value  
End Sub