I am using the following to copy and paste. I would like to add text to the pasted values. For example, original paste would be 5830D. I would like to add to the end so it would be 5830D-902
VBA Code:
Sub Copynotice()
'enter correct path to Downloads folder
sFile = Sheets("Setup").Range("C10").Value & "\DataGridExport.xlsx"
If Dir(sFile) = "" Then
MsgBox "Please download today's Pending Make Ready Report."
Exit Sub
End If
Dim wb1 As Workbook, wb2 As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb1 = ThisWorkbook
'enter correct path to Downloads folder
Set wb2 = Workbooks.Open(Sheets("Setup").Range("C10").Value & "\DataGridExport.xlsx")
wb2.Sheets("Report1").Range("E2:E120").Copy
wb1.Sheets("Notice").Range("D2").PasteSpecial Paste:=xlPasteValues
wb2.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub