VBA, чтобы выбрать строку (и) с одинаковым идентификатором в столбце, выделить строки, затем перейти к следующему идентификатору и скопировать идентификатор в буфер обмена

Question

Я ищу код VBA, который выберет строку (и) с одинаковым идентификатором в столбце A, выделит строки, а затем перейдет к следующему уникальному идентификатору в столбце A и скопирует его в буфер обмена. Это автоматизирует очень избыточный процесс, который у меня есть на работе.

Если это поможет, вот фрагмент кода из другого макроса, который вставляет пробел между уникальными идентификаторами в столбце A:

 Dim lastRow As Long
 Dim x As Long
 lastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Application.ScreenUpdating = False

 For x = lastRow To 2 Step -1
     If Cells(x, 1).Value <> Cells(x - 1, 1).Value Then
         If Cells(x, 1).Value <> "" Then
             If Cells(x - 1, 1).Value <> "" Then
                 Cells(x, 1).EntireRow.Insert Shift:=xlDown
             End If
         End If
     End If

 Next x
 Application.ScreenUpdating = True

Большое спасибо за вашу помощь!