Macro to add items with value to another tab

I went with this macro assigned to the button:

Option Explicit
Public Sub AddItemsToList()

Dim vC As Range
Dim nR As Long

nR = Worksheets("LIST").Cells(Worksheets("LIST").Rows.Count, "A").End(xlUp).Row + 1
For Each vC In Range("E:E").SpecialCells(xlCellTypeConstants)
    With Worksheets("LIST").Cells(nR, "A")
        .Value = vC.Offset(0, -4).Value
        .Offset(0, 1).Value = vC.Value
    End With
    vC.Value = ""
    nR = nR + 1
Next vC

End Sub

Also attached.

WBD