Este fragmento de codigo tiene dos secciones pero estoy seguro de que se puede reducir a una, ¿Alguien sabria como hacerlo? Gracias de antemano
pos = 3
While Cells(pos, 4) <> vbNullString
lista2 = lista2 & Replace(Cells(pos, 4), ",", " ") & ","
pos = pos + 1
Wend
lista3 = vbNullString
pos = 3
While Cells(pos, 6) <> vbNullString
lista3 = lista3 & Replace(Cells(pos, 6), ",", " ") & ","
pos = pos + 1
Wend
lista4 = "vbNullString"
pos = 3
While Cells(pos, 8) <> vbNullString
lista4 = lista4 & Replace(Cells(pos, 8), ",", " ") & ","
pos = pos + 1
Wend