Base varias columnas una CELDA dividirla en filas y el resto de las celdas copiarlas igual

¿Quieres el resultado en otra hoja?

¿Cuáles columnas quieres que pase a la otra hoja?

Prueba la siguiente macro.

Tus datos como están en la "Hoja1", los resultados en la "Hoja2"

Sub Dividir_filas()
  Dim i As Long, k As Long, n As Long
  Dim a As Variant, b As Variant, j As Variant
  a = Sheets("Hoja1").Range("A2", Sheets("Hoja1").Range("H" & Rows.Count).End(3))
  ReDim b(1 To UBound(a) * 10, 1 To 8)
  For i = 1 To UBound(a, 1)
    For Each j In Split(a(i, 8), ",")
      n = n + 1
      For k = 1 To 7
        b(n, k) = a(i, k)
      Next k
      b(n, 8) = j
    Next j
  Next i
  Sheets("Hoja2").Range("A2").Resize(n, 8).Value = b
End Sub

¡Gracias! !!! Eres grandioso.... Era la cereza del pastel de mi archivo... Y no podía llegar a esto... Casi lloro