hi,
this is my current code:
'
' importdata Macro
''workbooks("lap_lookup.xlsm").sheets("info").unProtect
Workbooks.Open Filename:="C:\123\123_data.xlsx"
Range("A2:H3007").Select
Selection.Copy
Windows("123_lookup.xlsm").Activate
Range("A2").Select
ActiveSheet.Paste...