Delete the same specific row in two worksheets

Hi,

I am trying to create a macro that will be able to select a UPC code from the "Daily Usage" Sheet and correspond it to the same UPC code from the "Total Data" Sheet and delete them both and move them both up (no blank spaces). Here is what I have so far. I tried to correspond it by trying to compare the Time Value, but I found out that the time value will be off by 1 second sometimes because it takes a little time for it to be scanned on "Daily Usage" and copied/pasted to the "Total Data" (I created a macro for that already)

Sub Delete()
    Dim xScreenUpdating As Boolean
    Dim DailyUsedUPC As Range
    Dim UsedUPC As Range
    Dim xTxt As String
    
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set DailyUsedUPC = Application.InputBox("Select UPC code to delete", "Delete UPC", xTxt, , , , , 8)
    
    If DailyUsedUPC Is Nothing Then
    MsgBox "Canceled"

    
    DailyUsedUPC.Delete Shift:=xlUp
    Sheets("Used").Select

    
  End If
    Application.ScreenUpdating = xScreenUpdating

    
End Sub

Edit: I also forgot to mention that I don't want it to be cell referenced directly because the "Daily Usage" Sheet will be cleared every day while the "Total Data" sheet won't be. I just want to have the option to delete a UPC code from both sheets in case a worker accidentally scans something twice.

Why not just incorporate code that does not allow the same item to be scanned twice...

Anyway...try this...

Sub Delete()
Dim X, DailyUsedUPC As Range, xTxt As String
xTxt = ActiveWindow.RangeSelection.Address
Set DailyUsedUPC = Application.InputBox("Select UPC code to delete", "Delete UPC", xTxt, , , , , 8)
If Not DailyUsedUPC Is Nothing Then
    With Sheets("Total Data")
        X = Application.Match(DailyUsedUPC, .Range("A:A"), 0)
        If Not IsError(X) Then .Range("A" & X).EntireRow.Delete
    End With
Else
    MsgBox "Canceled"
End If
End Sub

..........................
THANKS.gif

Only just realised you want it delete off both sheets...
Add red snippet...

With Sheets("Total Data")
    X = Application.Match(DailyUsedUPC, .Range("A:A"), 0)
    If Not IsError(X) Then .Range("A" & X).EntireRow.Delete
End With
DailyUsedUPC.EntireRow.Delete

If Not IsError(X) Then .Range("A" & X & ":F" & X).Delete