Zeile kopieren und in andere Datei anfügen

Sub Speichern_unter()
Dim varX As Variant, lngIndex As Long, lngRow As Long
varX = Array("C11", "J6", "j8", "c6", "C7", "H17", "H20", "H31", "H32", "H33", "H34", "H37", "  _
_
_
H38", "H39", "G43")
With Workbooks.Open("C:\Users\kevin.lambing\Desktop\EXCEL Beispiele\EXCEL\mehereZellen einfügen. _
_
_
xlsx").Worksheets("Tabelle1")
lngRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
For lngIndex = 0 To UBound(varX)
.Cells(lngRow, lngIndex + 5) = ThisWorkbook.Worksheets("Prüfformular").Range(varX( _
lngIndex)).Value
Next
End With
End Sub