Two things actuallyPHP Code:
Sub Retention()
Dim UserID As String
UserID = Environ("USERNAME")
Range("' Finance View Summary'!D10:BN34").Copy
Sheets("Retention").Activate
RCell = Range("a" & Rows.Count).End(xlUp).Offset(1).Row
Cells(RCell, "A").PasteSpecial Paste:=xlPasteValues
Cells(RCell, "A").PasteSpecial Paste:=xlPasteFormats
Cells(RCell, "G") = Date
Cells(RCell, "F") = UserID
Cells(RCell, "H") = Time
End Sub
I do not want to have the offset option, I just want to overwrite, and when it overwrites, display a prompt box that alerts that you are about to overwrite the cells and prompts if you would like to save (the save file would be the same location as the file,same name + current date).
Thanks for the help.
Bookmarks