Sub Datacollection()
'Copy tab from ALS/Internal or Historian
'
Application.FindFile
'
'CopyData Macro
'
'
Windows("Historian Macro Template.xlsm").Activate
Range("A1:P1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("File template.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("Historian Macro Template.xlsm").Close