Snasui Excel Forum

Code: Select all

Sub UpdateItem()
    Dim i As Integer, j As Integer
    i = [countif(a2:a100,h2)]
    If i > 0 Then
        j = [match(h2,a2:a100,0)]
    Else
        j = [counta(a2:a100)]
    End If
    Range("h2:k2").Copy Range("a" & j + 1)
    Application.CutCopyMode = False
End Sub

Code: Select all

Sub UpdateItem()
    Dim i As Integer, j As Integer
    i = [countif(a2:a100,h2)]
    If i > 0 Then
        j = [match(h2,a2:a100,0)]
    Else
        j = [counta(a2:a100)] + 1
    End If
    Range("h2:k2").Copy Range("a" & j + 1)
    Application.CutCopyMode = False
End Sub