Add this line at the bottom of the code and you will be directed to the first empty cell to the right of the last copied data.Code:Application.Goto Sheets("MESSAGE CHANGES").Cells(Rows.Count, 1).End(xlUp).Offset(, 3)
Add this line at the bottom of the code and you will be directed to the first empty cell to the right of the last copied data.Code:Application.Goto Sheets("MESSAGE CHANGES").Cells(Rows.Count, 1).End(xlUp).Offset(, 3)
Posting Permissions
Reply With Quote
Bookmarks