From sheet 1 copy selected row then search sheet 2

[CATIA_V5]

From sheet 1 copy selected row then search sheet 2 For same, And if the first range matched then update Sheet 2. if no match then paste on next empty row

sht1
row A16 THRU K16

SHT2
Find Match from sheet 1 in sheet 2
If A16 thru K16 match update these only, Leave L16 Alone,
If no Match copy in next empty Row

i have this now..
'THIS INPUTS TOOLS
Sub Move_INPUT_INVENTORY()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim UserRange As Range

Set copySheet = Worksheets("INPUT")
Set pasteSheet = Worksheets("INVENTORY")


On Error GoTo Canceled
Set UserRange = Application.InputBox _
(Prompt:="Range to cut:", _
Title:="Range cut", _
Default:=Selection.Address, _
Type:=8)
UserRange.Copy
UserRange.Select
Canceled:
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Selection.EntireRow.Delete
Application.CutCopyMode = False
Application.ScreenUpdating = True




End Sub

 

[JLGWhiz]

See if you can use this

Sub t()
Dim sh1 As Worksheet, sh2 As Worksheet, fn As Range, rng As Range
Set sh1 = Sheets("INPUT")
Set sh2 = Sheets("INVENTORY")
With sh1
.Activate
Set rng = Application.InputBox("Select Range To Cut.", "RANGE TO CUT", Type:=8)
End With
Set fn = sh2.Range("A:A").Find(rng.Cells(1).Value, , xlValues, xlWhole)
    If Not fn Is Nothing Then
        rng.Cells(1).Resize(, 11).Cut fn
    Else
        rng.Cut sh2.Cells(Rows.Count, 1).End(xlUp)(2)
    End If
End Sub

 

[CATIA_V5]

Hello
and Good Morning,
Just got to work and tried your Script,
And it works GREAT!!!
Thanks.

 

[JLGWhiz]

Hello
and Good Morning,
Just got to work and tried your Script,
And it works GREAT!!!
Thanks.

You're welcome,
regards, JLG