I have the following code below to open a file and copy data from sheet "Summary Group" but no data is pasted into the current workbook
It would be appreciated if someone could assist me
It would be appreciated if someone could assist me
Code:
Sub Open_Imported_Data()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.CutCopyMode = False
End With
ChDir "C:\Sales Reports"
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"C:\Sales Reports\BR1 Group Sales Ver 1.1.xlsm"
Sheets(3).Range("A1:H" & Rows.Count).End(xlUp).Copy
Sheets("Imported Data").PasteSpecial Paste:=xlPasteValues
Sheets("Imported Data").PasteSpecial Paste:=xlPasteFormats
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.CutCopyMode = False
End With
End Sub