Copy and Paster based on Userform selection

This is a tracker that I am building that will outline the steps of a process. On Sheet 2 of my excel doc, there is a table that has a column for each step in the process. Beside the table, there is a button “update table” that you when you hit a Userform pops up. In the Userform, you will find a list of the records that are generated from Sheet 1 Column A. You select a record in the userform and then there is are options (steps in the process) to select. The final step is the process is complete. When you select a record and hit complete to update table, I want the info for that record to be pulled from Sheet 1 and cut and pasted to Sheet 3 on the next available row. I will include screenshots for visual aide.

Sub MoveCells()

Dim rng As Range

Application.ScreenUpdating = False

Dim copySheet As Worksheet

Dim pasteSheet As Worksheet

Set pasteSheet = Worksheets("Completed")

Set rng = Range("A1").CurrentRegion

Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)

rng.Copy

pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

Application.ScreenUpdating = True