Moving data to another cell automatically - extended

[Krix]

Hi,

I was wondering if someone can help me on my problem.

Sheet1: TaggingInfo
Sheet2: ModerationInfo
Sheet3: Tagging
Sheet4: Moderation

The scenario is:
I'll paste the info's that I get on Sheet1 (such as "Media ID, Username, Title, Date") Once I pasted it. It will automatically copy and move it on Sheet 2 on put it on designated columns, also I only need to copy and move the Username, Media Id and Date and after successfully copying the info's on Sheet3 a confirmation will be prompt and say its successfully copied and will delete the info's pasted on Sheet1. So that it can make a new entry again and will automatically move to the next row.

Same goes with Sheet2, If I paste information (such as Username, Media ID and Flagger. ) I want it to move on Sheet 4 on their designated columns.

Previously I was helped by Sir @arlu1201 and gave this code, now I want to change some stuff and add new functions on the Tracker that I'm working. I'll attached the sample Spreadsheet that I made.

I did tried to tweak the code and read on it but still I always get errors. etc etc.. Can someone please help and by any chance teach me a little about the code lines that you put so that in future I wont bother you guys

Option Explicit

Sub update_sheet()
Dim cvalue As Long, i As Long, lrow As Long

Application.ScreenUpdating = False

lrow = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("Sheet1")
    For i = 3 To 5
        .Range("A7").FormulaR1C1 = "=RIGHT(R[" & i - 7 & "]C,LEN(R[" & i - 7 & "]C)-FIND("":"",R[" & i - 7 & "]C,1))"
        Worksheets("Sheet2").Cells(lrow + 1, i - 2).Value = .Range("A7").Value
    Next i
    .Range("A7").Value = ""
    .Range("A3").Value = "Username:"
    .Range("A4").Value = "Title:"
    .Range("A5").Value = "Create Date:"
End With

Application.ScreenUpdating = True

End Sub

Any help will be much appreciated. Thanks!

Krix