VBA Copying data from one workbook to another workbook, specific ranges & tabs

[jmaxwell25]

Hi need some help please

I have the following VBA for a report which copy's over Specific data from one workbook to another workbook in therange & tab I need it to, however I would like it to automatically know thefile path & report I want the data copied from, this code currently askswhich report the user would like to open. How do I do this?
Thanks

Sub _TransActuals1()

Dim Fname As String
Dim SrcWbk AsWorkbook
Dim DestWbk AsWorkbook

Set DestWbk =ThisWorkbook

Fname = Application.GetOpenFilename(FileFilter:="ExcelFiles (*.xls*), *.xls*", Title:="Select a File")

If Fname ="False" Then Exit Sub
Set SrcWbk =Workbooks.Open(Fname)

Range("A2").Select
Range("U6000").Select
Selection.Copy
Windows("MonthlyVariance Report.xlsm").Activate
Sheets("Tran Actuals").Select
Range("B2").Select
ActiveSheet.Paste

SrcWbk.Close False

End Sub

 

[Fluff]

Will the file name name & path always be the same?

 

[Jennifer25]

Hi thanks for asking, I have actually cracked it after several hours fishing the internet...

Sub Actuals()

Dim Fname As String
Dim SrcWbk As Workbook
Dim DestWbk As Workbook

strPath2 = "C:\Users\jmmaxwell\Desktop\PERSAPS\Bids_Projects\Variance Reports\MASTERCOPY_Actuals"

Set DestWbk = ThisWorkbook
Set wbkWorkbook2 = Workbooks.Open(strPath2)

Range("A2:u6000").Select
Selection.Copy
Windows("Monthly Variance Report.xlsm").Activate
Sheets("Actuals").Select
Range("B2").Select
ActiveSheet.Paste
wbkWorkbook2.Close SaveChanges:=False

End Sub