Help! Urgent help needed!
My macro copy only 1st item even though 2nd item also met the condition.
Thanks so much!
--------------------------------------------------------------
Sub AddNewData()
Dim lastrow As Long
lastrow = Sheets("Table1").Range("B1048576").End(xlUp).Row + 1
If Range("Item1").Value <> "ZZZZ" Then
Range("ItemLine1").Copy
Sheets("Table1").Range("B" & lastrow).PasteSpecial xlPasteValues
Else
If Range("Item2").Value <> "ZZZZ" Then
Range("ItemLine2").Copy
Sheets("Table1").Range("B" & lastrow).PasteSpecial xlPasteValues
Else
If Range("Item3").Value <> "ZZZZ" Then
Range("ItemLine3").Copy
Sheets("Table1").Range("B" & lastrow).PasteSpecial xlPasteValues
Else
End If
End If
End If
End Sub
--------------------------------------------------------------
Bookmarks