Hacer macro en excel-vba de búsqueda con condición y ordenar valores resultantes después.

Primero de todo soy principiante y agradezco muchísimo toda la ayuda que podáis darme. Ahora mismo estoy ayudando a un amigo a intentar salvar su negocio. Tenemos que mejorar la producción y estamos intentando hacer con una hoja excel un planning. El problema que tengo es el siguiente: dado una serie de valores en forma de texto en la columna S12:S50(incluien valores del estilo"#N/A") . Queremos que los analice y si bajo la condición de que ponga "Làser" en S12 copie el valor de R12 en V12 de forma ordenada y sin espacios; y así sucesivamente hasta S50.

Para ello tenemos las celdas U12 que nos cuenta el número de veces que aparece "Làser" en S12:S50.. Mi intención era utilizarlo como contador para ordenar en V12; de forma ascendente o descendente es indiferente.

Lo he intentado pero no funciona ... Os lo adjunto más abajo.

Gracias

Private Sub CommandButton1_Click()
Dim i As Byte
Dim a As Integer
Dim b As Integer
Dim d As Byte

a = Cells(21, 12).Value
b = Cells(21, 13).Value
d = 12
u = a + b + d

For i = 12 To i = u
If Cells(19, i) = "Làser" Then
Cells(21, d) = Cells(18, i)
d = d + 1
End If
i = i + 1
Next i
"Faltaria función para ordenar los valores luego de las celdas (18,12) a celdas (18,a)"
End Sub