Macro: To Copy data from one worksheet to another then delete the row

[Timuka]

I am trying to get the following below to copy data from worksheet Input to worksheet Archvie then after the copy to delete the row in worksheet "PartsData". I would like to also to have a msgbox to warn the user with a yes or no to copy to archive. if yes then copy; if no then don't

Sub ArchiveLogRecord()

    Dim historyWks As Worksheet
    Dim inputWks As Worksheet

    Dim lRec As Long
    Dim oCol As Long
    Dim lRecRow As Long

    Dim myCopy As Range
    Dim myTest As Range
    
    Set inputWks = Worksheets("Input")
    Set historyWks = Worksheets("Archive")
        
    'cells to copy from Input sheet - some contain formulas
    Set myCopy = inputWks.Range("OrderEntry")
    lRec = inputWks.Range("CurrRec").Value
    lRecRow = lRec + 1

    With inputWks
        Set myTest = myCopy.Offset(0, 2)

        If Application.Count(myTest) > 0 Then
            MsgBox "Please fill in all the cells!"
            Exit Sub
        End If
    End With

    With historyWks
        With .Cells(lRecRow, "A")
            .Value = Now
            .NumberFormat = "mm/dd/yyyy hh:mm:ss"
        End With
        .Cells(lRecRow, "B").Value = Application.UserName
        oCol = 3
    
        myCopy.Copy
        .Cells(lRecRow, 3).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        Application.CutCopyMode = True
    End With
   
    
    'clear input cells that contain constants
    With inputWks
      On Error Resume Next
         With myCopy.Cells.SpecialCells(xlCellTypeConstants)
              .ClearContents
              Application.GoTo .Cells(1) ', Scroll:=True
         End With
      On Error GoTo 0
    End With
End Sub

 

[pboltonchina]

Why not just change Copy to Cut?

 

[Timuka]

I am using a form to gather the data and update the data.

I don't need to cut the data from the Input worksheet but the Partsdata worksheet

 

[Timuka]

Solved..

Close