Adding to a list.

I am assuming that sheet1 is the main sheet and sheet2 is the sheet where you enter new productcode, which will insert productinfo into sheet1 if productcode is not present in sheet1 and update if it is present in sheet1.

i am also assuming that

a1 cell has value productcode, b1 has style,c1 has description, d1 has quantity in both the sheets.

I want to back up your workbook before executing this macro



Try this macro



Sub Macro1()


Dim i As Integer
Dim k As Variant
k = 2
i = 0
Dim wh As Variant

Sheets("sheet2").Select
While i = 0
Sheets("sheet2").Select
If (Range("a" & k).Value <> "") Then

wh = Range("a" & k).Value
Range("a" & k & ":d" & k).Select
Selection.Copy

Sheets("sheet1").Select
On Error Resume Next
Range("a:a").Select
Selection.Find(What:=wh, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
If Err.Description <> "" Then
Sheets("sheet1").Select
Range("a1").Select
Selection.End(xlDown).Select
MsgBox ActiveCell.Address
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Err.Clear
Else
Sheets("sheet1").Select
ActiveCell.Select
ActiveSheet.Paste
End If

Else
i = 1
End If

k = k + 1
Wend
End Sub