If Me.lstItem.ListCount > 0 Then
For i = 0 To Me.lstItem.ListCount - 1
Set FindValue = PartSH.Range("A:A").Find(what:=Me.lstItem.Column(0, i), LookIn:=xlValues, LookAt:=xlWhole)
Set AddMe2 = FlagSH.ListObjects("Flag").Range.Columns(4).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Offset(1, 0)
With FlagSH
AddMe2.Offset(0, 0).Value = FindValue.Offset(0, 0).Value
AddMe2.Offset(0, 1).Value = FindValue.Offset(0, 1).Value
AddMe2.Offset(0, 2).Value = FindValue.Offset(0, 2).Value
AddMe2.Offset(0, 3).Value = FindValue.Offset(0, 3).Value
AddMe2.Offset(0, 4).Value = FindValue.Offset(0, 4).Value
AddMe2.Offset(0, 5).Value = FindValue.Offset(0, 5).Value
AddMe2.Offset(0, 6).Value = FindValue.Offset(0, 6).Value
AddMe2.Offset(0, 7).Value = FindValue.Offset(0, 7).Value
AddMe2.Offset(0, 8).Value = FindValue.Offset(0, 8).Value
AddMe2.Offset(0, 9).Value = FindValue.Offset(0, 9).Value
AddMe2.Offset(0, 10).Value = FindValue.Offset(0, 10).Value
AddMe2.Offset(0, 11).Value = FindValue.Offset(0, 11).Value
AddMe2.Offset(0, 12).Value = FindValue.Offset(0, 12).Value
AddMe2.Offset(0, 13).Value = FindValue.Offset(0, 13).Value
AddMe2.Offset(0, 14).Value = FindValue.Offset(0, 14).Value
AddMe2.Offset(0, 15).Value = FindValue.Offset(0, 15).Value
AddMe2.Offset(0, 16).Value = FindValue.Offset(0, 16).Value
AddMe2.Offset(0, 17).Value = FindValue.Offset(0, 17).Value
AddMe2.Offset(0, 18).Value = FindValue.Offset(0, 18).Value
AddMe2.Offset(0, 19).Value = FindValue.Offset(0, 19).Value
AddMe2.Offset(0, 20).Value = FindValue.Offset(0, 20).Value
AddMe2.Offset(0, 21).Value = FindValue.Offset(0, 21).Value
AddMe2.Offset(0, 22).Value = FindValue.Offset(0, 22).Value
AddMe2.Offset(0, 23).Value = FindValue.Offset(0, 23).Value
AddMe2.Offset(0, 24).Value = FindValue.Offset(0, 24).Value
AddMe2.Offset(0, 25).Value = FindValue.Offset(0, 25).Value
End With
Next i
End If