For i = 2 To Sheets(13).Range('D6000').End(xlUp).Row
x = x + 1
.ListItems.Add , , Sheets(13).Range('D' & i).Text
.ListItems(x).ListSubItems.Add , , Sheets(13).Range('C' & i).Text
.ListItems(x).ListSubItems.Add , , Sheets(13).Range('B' & i).Text
.ListItems(x).ListSubItems.Add , , Sheets(13).Range('A' & i).Text