I would prefer it to be in c:\midstate\replacedata.xlsx. so the user does not delete it by mistake. I tried what I have below but it run just does notmake any changes. The sheet I have all the data in is called input.

'open Replaces workbook and copy data sheet in
Workbooks.Open Filename:="c:\midstate\ReplaceData.xlsx" ' <<<<<<<<<<<<<<<<<
Set wbData = ActiveWorkbook
wbData.Worksheets("Data").Copy Before:=ThisWorkbook.Worksheets(1)
wbData.Close False