het gebruik van "select" is eerder af te raden, het heeft geen toegevoegde waarde en vertraagt de macro.
Zoiets zou dus kunnen (met gecorrigeerde naam zoals BlackDevil) :Sub Data2()
Dim shData: Set shData = Sheets("Data")
'Delete alles van Data sheet
shData.Columns("D:Z").ClearContents
'Open de Varia Copim File
Workbooks.Open Filename:="C:\Mart\VARIA COPIM BE.xlsx"
Range("A1,C1,F1,G1,H1,I1,J1,L1,M1,N1,O1,Q1,R1,S1,T1,U1,AC1,BU1,BV1,CX1").EntireColumn.Copy
shData.Range("D1").PasteSpecial Paste:=xlPasteValues
Workbooks("VARIA COPIM BE.xlsx").Close savechanges:=False
End Sub
eventueel had die file ook aan een variable kunnen toegewezen zijn.
Sub Data2()
Dim shData: Set shData = Sheets("Data")
'Delete alles van Data sheet
shData.Columns("D:Z").ClearContents
'Open de Varia Copim File
Set WB = Workbooks.Open("C:\Mart\VARIA COPIM BE.xlsx")
Range("A1,C1,F1,G1,H1,I1,J1,L1,M1,N1,O1,Q1,R1,S1,T1,U1,AC1,BU1,BV1,CX1").EntireColumn.Copy
shData.Range("D1").PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
WB.Close savechanges:=False
Application.DisplayAlerts = False
End Sub