Greetings all...
With WsTempHold
Lr1 = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
.Range("G" & Lr1) = Me.CmbItemRqstdAdd.Value
Dim X As Strng, Cell as Range
For Each Cell In .Range("G2:G" & Lr1)
If(Len(Cell.Value)>10 And .Cells(.Rows.Count, "G").End(xlUp).Row <> .Range("G" & Lr1)...