Das sollte nicht sein. Die Zelle B und C sollen die Werte beibehalten, wenn bei Spalte A nicht alle Werte da sind
https://www.herber.de/bbs/user/142276.xlsm
Sub CommandButton1_Click()
Dim arr, i, ii, temp2, temp3
arr = Range("A2:C100")
For i = 1 To Range("A2:C100").Rows.Count
For ii = i + 1 To Range("A2:C100").Rows.Count
If arr(i, 1) = arr(ii, 2) Then
temp2 = arr(ii, 2): temp3 = arr(ii, 3)
arr(ii, 2) = arr(i, 2): arr(ii, 3) = arr(i, 3)
arr(i, 2) = temp2: arr(i, 3) = temp3
End If
Next ii
Next i
Range("A2:C100") = arr
End Sub
Mfg Roger