Workbooks("base").Sheets("VM").Range("F1").Select
 Range(Selection, Selection.End(xlDown)).Copy
 Workbooks("result.xlsx").Sheets("testdata").Range("B1").PasteSpecial xlPasteValues